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Introduccion  a  la  programacion 
funcional 

1.1.  Funciones 

Funciones  en  Haskell 

■  En  Haskell,  una  funcion  es  una  aplicacion  que  toma  uno  o  mås  argumentos  y 
devuelve  un  valor. 

■  En  Haskell,  las  funciones  se  definen  mediante  ecuaciones  formadas  por  el  nombre 
de  la  funcion,  los  nombres  de  los  argumentos  y  el  cuerpo  que  especifica  como  se 
calcula  el  valor  a  partir  de  los  argumentos. 

■  Ejemplo  de  definicion  de  funcion  en  Haskell: 
doble  x  =  x  +  x 


■  Ejemplo  de  evaluacion: 

doble  3 

=  3  +  3  [def.  de  doble] 

=  6  [def.  de  +] 

Evaluaciones  de  funciones  en  Haskell 

■  Ejemplo  de  evaluacion  anidada  impaciente: 

doble  (doble  3) 

=  doble  (3  +  3)  [def.  de  doble] 

=  doble  6  [def.  de  +] 

=  6  +  6  [def.  de  doble] 

=  12  [def.  de  +] 
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■  Ejemplo  de  evaluacion  anidada  perezosa: 


doble  (doble  3) 

=  (doble  3)  +  (doble  3) 

[det.  de  doble] 

=  (3  +3)  +  (doble  3) 

[det.  de  doble] 

=  6  +  (doble  3) 

[det.  de  +] 

=  6  +  (3  +  3) 

[det.  de  doble] 

=  6  +  6 

[det.  de  +] 

=  12 

[det.  de  +] 

Comprobacion  de  propiedades 

■  Propiedad:  El  doble  de  x  mås  y  es  el  doble  de  x  mås  el  doble  de  y 

■  Expresion  de  la  propiedad: 


prop.doble  x  y  =  doble  (x+y)  ==  (doble  x)  +  (doble  y) 


■  Comprobacion  de  la  propiedad  con  QuickCheck: 

*Main>  quickCheck  prop_doble 
+++  OK,  passed  100  tests. 

■  Para  usar  QuickCheck  hay  que  importarlo,  escribiendo  al  principio  del  fichero 

import  Test . QuickCheck 


Refutacion  de  propiedades 

■  Propiedad:  El  producto  de  dos  numeros  cualequiera  es  distinto  de  su  suma. 

■  Expresion  de  la  propiedad: 
prop_prod_suma  x  y  =  x*y  /=  x+y 


■  Refutacion  de  la  propiedad  con  QuickCheck: 

*Main>  quickCheck  prop_prod_suma 

***  Failed!  Falsifiable  (after  1  test): 

0 

0 

■  Refinamiento:  El  producto  de  dos  numeros  no  nulos  cualequiera  es  distinto  de  su 


suma. 
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prop_prod_suma’  x  y  = 

x  /=  0  &&  y  /=  0  ==>  x*y  /=  x+y 


■  Refutacion  de  la  propiedad  con  QuickCheck: 

*Main>  quickCheck  prop_prod_suma’ 

+++  OK,  passed  100  tests. 

*Main>  quickCheck  prop_prod_suma’ 

***  Failed!  Falsifiable  (after  5  tests): 
2 
2 


1.2.  Programacion  funcional 

Programacion  funcional  y  programacion  imperativa 

■  La  programacion  funcional  es  un  estilo  de  programacion  cuyo  método  båsico  de 
computacion  es  la  aplicacion  de  funciones  a  sus  argumentos. 

■  Un  lenguaje  de  programacion  funcional  es  uno  que  soporta  y  potencia  el  estilo 
funcional. 

■  La  programacion  imperativa  es  un  estilo  de  programacion  en  el  que  los  progra¬ 
mas  estån  formados  por  instrucciones  que  especifican  como  se  ha  de  calcular  el 
resultado. 

■  Ejemplo  de  problema  para  diferenciar  los  estilos  de  programacion: 

Sumar  los  n  primeros  numeros. 

Solucion  mediante  programacion  imperativa 

■  Programa  suma  n: 

contador  :=  0 
total  :=  0 

repetir 

contador  :=  contador  +  1 
total  :=  total  +  contador 
hasta  que  contador  =  n 
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■  Evaluacion  de  suma  4: 


contador 

total 

0 

0 

1 

1 

2 

3 

3 

6 

4 

10 

Solucion  mediante  programacion  funcional 


■  Programa: 


■  Evaluacion  de  suma  4: 

suma  4 

=  sum  [1..4]  [def.  de  suma] 

=  sum  [1,  2,  3, 4]  [def.  de  [..]] 

=  1+2  +  3  +  4  [def.  de  sum] 

=  10  [def.  de  +] 

1.3.  Rasgos  caracteristicos  de  Haskell 

■  Programas  concisos. 

■  Sistema  potente  de  tipos. 

■  Listas  por  comprension. 

■  Funciones  recursivas. 

■  Funciones  de  orden  superior. 

■  Razonamiento  sobre  programas. 

■  Evaluacion  perezosa. 

■  Efectos  monådicos. 
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1.4.  Antecedentes  historicos 

■  1930s:  Alonzo  Church  desarrolla  el  lambda  cålculo  (teoria  båsica  de  los  lenguajes 
funcionales). 

■  1950s:  John  McCarthy  desarrolla  el  Lisp  (lenguaje  funcional  con  asignaciones). 

■  1960s:  Peter  Landin  desarrolla  ISWIN  (lenguaje  funcional  puro). 

■  1970s:  John  Backus  desarrolla  FP  (lenguaje  funcional  con  orden  superior). 

■  1970s:  Robin  Milner  desarrolla  ML  (lenguaje  funcional  con  tipos  polimorficos  e 
inferencia  de  tipos). 

■  1980s:  David  Turner  desarrolla  Miranda  (lenguaje  funcional  perezoso). 

■  1987:  Un  comité  comienza  el  desarrollo  de  Haskell. 

■  2003:  El  comité  publica  el  "Haskell  Report". 

1.5.  Presentacion  de  Haskell 

Ejemplo  de  recursion  sobre  listas 

■  Especificacion:  (sum  xs)  es  la  suma  de  los  elementos  de  xs. 

■  Ejemplo:  sum  [2,3,7]  ~>12 

■  Definicion: 

sum  []  =0 

sum  (x:xs)  =  x  +  sum  xs 


■  Evaluacion: 

sum  [2,3,7] 

=  2  +  sum  [3,7] 

=  2  +  (3  +  sum  [7]) 

=  2  +  (3  +  (7  +  sum  [])) 
=  2  +  (3  +  (7  +  0)) 

=  12 


[det.  de  sum] 
[det.  de  sum] 
[det.  de  sum] 
[det.  de  sum] 
[det.  de  +] 


Tipo  de  sum:  (Num  a)  =>  [a]  ->  a 
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Ejemplo  con  listas  de  comprension 

■  Especificacion:  (ordena  xs)  es  la  lista  obtenida  ordenando  xs  mediante  el  algorit- 
mo  de  ordenacion  råpida. 

■  Ejemplo: 

ordena  [4, 6, 2, 5, 3]  ^  [2,3,4,556] 
ordena  "deacb"  "abede" 


■  Definicion: 


ordena  []  =  [] 

ordena  (x:xs)  = 

(ordena  menores)  ++ 

[x]  ++  (ordena  mayores) 

where  menores  =  [a  1 

a  <-  xs,  a  <=  x] 

mayores  =  [b  1 

b  <-  xs,  b  >  x] 

■  Tipo  de  ordena:  Ord  a  =>  [a]  ->  [a] 


Evaluacion  del  ejemplo  con  listas  de  comprension 

ordena  [4,6,2,3] 

=  (ordena  [2,3])  ++  [4]  ++  (ordena  [6]) 

=  ((ordena  [])  ++  [2]  ++  (ordena  [3]))  ++  [4]  ++  (ordena  [6]) 
=  ([]  ++  [2]  ++  (ordena  [3]))  ++  [4]  ++  (ordena  [6]) 

=  ([2]  ++  (ordena  [3]))  ++  [4]  ++  (ordena  [6,5]) 

=  ([2]  ++  ((ordena  [])  ++  [3]  ++  []))  ++  [4]  ++  (ordena  [6]) 

=  ([2] ++([]++ [3] ++[]))++ [4] ++ (ordena  [6]) 

=  ([2]  ++  [3])  ++  [4]  ++  (ordena  [6]) 

=  [2,3]  ++  [4]  ++  (ordena  [6]) 

=  [2,3,4]  ++  (ordena  [6]) 

=  [2,3,4]  ++  ((ordena  [])  ++  [6]  ++  (ordena  [])) 

=  [2,3,4]  ++  ((ordena  [])  ++  [6]  ++  (ordena  [])) 

=  [2,3,4]  ++  ([]  ++  [6]  ++  []) 

=  [2,3,4,6] 


[def.  ordena] 
[def.  ordena] 
[def.  ordena] 
[def.  ++] 

[def.  ordena] 
[def.  ordena] 
[def.  ++] 

[def.  ++] 

[def.  ++] 

[def.  ordena] 
[def.  ordena] 
[def.  ordena] 
[def.  ++] 
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Introduccion  a  la  programacion  con 
Haskell 

2.1.  El  sistema  GHC 

El  sistema  GHC 

■  Los  programa  funcionales  pueden  evaluarse  manualmente  (como  en  el  tema  an- 
terior). 

■  Los  lenguajes  funcionales  evaluan  automåticamente  los  programas  funcionales. 

■  Haskell  es  un  lenguaje  funcional. 

■  GHC  (Glasgow  Haskell  Compiler)  es  el  intérprete  de  Haskell  que  usaremos  en  el 
curso. 


2.2.  Iniciacion  a  GHC 

2.2.1.  Inicio  de  sesion  con  GHCi 

■  Inicio  mediante  ghc  i 

I1M>  ghci 

GHCi,  version  6.10.3:  http://www.haskell.org/ghc/  :?  for  help 
Prelude> 

■  La  llamada  es  Prelude> 

■  Indica  que  ha  cargado  las  definiciones  båsicas  que  forman  el  preludio  y  el  sistema 
estå  listo  para  leer  una  expresion,  evaluarla  y  escribir  su  resultado. 
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2.2.2.  Cålculo  aritmético 

Cålculo  aritmético:  Operaciones  aritméticas 

■  Operaciones  aritméticas  en  Haskell: 

Prelude>  2+3 

5 

Prelude>  2-3 
-1 

Prelude>  2*3 

6 

Prelude>  7  cdiv£  2 
3 

Prelude>  2~3 
8 

Cålculo  aritmético:  Precedencia  y  asociatividad 

■  Precedencia: 

Prelude>  2*10~3 
2000 

Prelude>  2+3*4 
14 

■  Asociacitividad: 

Prelude>  2~3'"4 
2417851639229258349412352 
Prelude>  2~(3~4) 

2417851639229258349412352 
Prelude>  2-3-4 
-5 

Prelude>  (2-3) -4 
-5 

2.2.3.  Cålculo  con  listas 

Cålculo  con  listas:  Seleccionar  y  eliminar 

■  Seleccionar  el  primer  elemento  de  una  lista  no  vacia 

I  head  [1,2,3,4,51  1 


Tema  2.  Introduccion  a  la  programacion  con  Haskell 


15 


■  Eliminar  el  primer  elemento  de  una  lista  no  varia: 

| tail  [1,2, 3, 4,5]  [2, 3, 4, 5] 

■  Seleccionar  el  n-ésimo  elemento  de  una  lista  (empezando  en  0): 

| [1,2, 3, 4, 5]  ! !  2  3 

■  Seleccionar  los  n  primeros  elementos  de  una  lista: 

| take  3  [1,2, 3, 4, 5]  [1,2,3] 

■  Eliminar  los  n  primeros  elementos  de  una  lista: 

| drop  3  [1,2, 3, 4, 5]  [4,5] 

Cålculo  con  listas 

■  Calcular  la  longitud  de  una  lista: 

| length  [1,2, 3, 4, 5]  ^  5 

■  Calcular  la  suma  de  una  lista  de  numeros: 

| sum  [1,2, 3, 4, 5]  15 

■  Calcular  el  producto  de  una  lista  de  numeros: 

Jproduct  [1,2, 3, 4, 5]  ^  120 

■  Concatenar  dos  listas: 

|  [1,2,3]  ++  [4,5]  [1,2, 3, 4, 5] 

■  Invertir  una  lista: 

jreverse  [1,2, 3, 4, 5]  [5, 4, 3, 2,1] 

2.2.4.  Cålculos  con  errores 

Ejemplos  de  cålculos  con  errores 

Prelude>  1  £divc  0 

***  Exception:  divide  by  zero 

Prelude>  head  [] 

***  Exception:  Prelude .head:  empty  list 
Prelude>  tail  [] 
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***  Exception:  Prelude.tail:  empty  list 
Prelude>  [2,3]  !!  5 

***  Exception:  Prelude . ( ! ! ) :  index  too  large 


2.3.  Aplicacion  de  funciones 

Aplicacion  de  funciones  en  matemåticas  y  en  Haskell 

■  Notacion  para  funciones  en  matemåticas: 

•  En  matemåticas,  la  aplicacion  de  funciones  se  representa  usando  paréntesis  y 
la  multiplicacion  usando  yuxtaposicion  o  espacios 

•  Ejemplo: 

f(a,b )  +  cd 

representa  la  suma  del  valor  de  /  aplicado  a  a  y  b  mås  el  producto  de  c  por  d. 

■  Notacion  para  funciones  en  Haskell: 

•  En  Haskell,  la  aplicacion  de  funciones  se  representa  usando  espacios  y  la  mul¬ 
tiplicacion  usando  *. 

•  Ejemplo: 

f  a  b  +  c*d 

representa  la  suma  del  valor  de  f  aplicado  a  a  y  b  mås  el  producto  de  c  por  d. 

Prioridad  de  la  aplicacion  de  funciones 

■  En  Haskell,  la  aplicacion  de  funciones  tiene  mayor  prioridad  que  los  restantes  ope- 
radores.  Por  ejemplo,  la  expresion  Haskell  f  a  +  b  representa  la  expresion  mate- 
måtica  f(a)  +  b. 

■  Ejemplos  de  expresiones  Haskell  y  matemåticas: 


Matemåticas 

Haskell 

/(*) 

f  X 

f(x,y) 

f  x  y 

fig(x)) 

f  (g  x) 

f{*rg{y)) 

f  X  (g  y) 

f(x)g{y) 

f  x  *  g  y 
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2.4.  Guiones  Haskell 

■  En  Haskell  los  usuarios  pueden  definir  funciones. 

■  Las  nuevas  definiciones  se  definen  en  guiones,  que  son  ficheros  de  textos  com- 
puestos  por  una  sucesion  de  definiciones. 

■  Se  acostumbra  a  identificar  los  guiones  de  Haskell  mediante  el  sufijo  .hs 

2.4.1.  El  primer  guion  Haskell 

■  Iniciar  emacs  y  abrir  dos  ventanas:  C-x  2 

■  En  la  primera  ventana  ejecutar  Haskell:  M-x  run-haskell 

■  Cambiar  a  la  otra  ventana:  C-x  o 

■  Iniciar  el  guion:  C-x  C-f  ejemplo.hs 

■  Escribir  en  el  guion  las  siguientes  definiciones 

doble  x  =  x+x 
cuadruple  x  =  doble  (doble  x) 

■  Grabar  el  guion:  C-x  C-s 

■  Cargar  el  guion  en  Haskell:  C-c  C-l 

■  Evaluar  ejemplos: 

*Main>  cuadruple  10 
40 

*Main>  take  (doble  2)  [1,2,3,4,5,61 
[1,2,3,41 

■  Vol  ver  al  guion:  C-x  o 

■  Anadir  al  guion  las  siguientes  definiciones: 

factorial  n  =  product  [l..n] 
media  ns  =  sum  ns  £div£  length  ns 

■  Grabar  el  guion:  C-x  s 

■  Cargar  el  guion  en  Haskell:  C-c  C-l 
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■  Evaluar  ejemplos: 

*Main>  factorial  (doble  2) 

24 

*Main>  doble  (media  [1,5,3]) 
6 


2.4.2.  Nombres  de  funciones 

■  Los  nombres  de  funciones  tienen  que  empezar  por  una  letra  en  minuscula.  Por 
ejemplo, 

•  sumaCuadrado,  suma_cuadrado,  suma’ 

■  Las  palabras  reservadas  de  Haskell  no  pueden  usarse  en  los  nombres  de  funciones. 
Aigunas  palabras  reservadas  son 

case  class  data  default  deriving  do  else 

if  import  in  infix  infixl  infixr  instance 

let  module  newtype  of  then  type  where 

■  Se  acostumbra  escribir  los  argumentos  que  son  listas  usando  s  como  sufijo  de  su 
nombre.  Por  ejemplo, 

•  ns  representa  una  lista  de  numeros, 

•  xs  representa  una  lista  de  elementos, 

•  css  representa  una  lista  de  listas  de  caracteres. 

2.4.3.  La  regia  del  sangrado 

■  En  Haskell  la  disposicion  del  texto  del  programa  (el  sangrado)  delimita  las  defini- 
ciones  mediante  la  siguiente  regia: 

Una  definicion  acaba  con  el  primer  trozo  de  codigo  con  un  margen  izquierdo 
menor  o  igual  que  el  del  comienzo  de  la  definicion  actual. 

■  Ejemplo: 

a  =  b  +  c 
where 
b  =  1 
c  =  2 
d  =  a  *  2 
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■  Consejos: 

•  Comenzar  las  definiciones  de  las  funciones  en  la  primera  columna. 

•  Usar  el  tabulador  en  emacs  para  determinar  el  sangrado  en  las  definiciones. 

2.4.4.  Comentarios  en  Haskell 

■  En  los  guiones  Haskell  pueden  incluirse  comentarios. 

■  Un  comentario  simple  comienza  con  --  y  se  extiende  hasta  el  final  de  la  linea. 

■  Ejemplo  de  comentario  simple: 

—  (factorial  n)  es  el  factorial  del  numero  n. 
factorial  n  =  product  [l..n] 


■  Un  comentario  anidado  comienza  con  {-  y  termina  en  -} 

■  Ejemplo  de  comentario  anidado: 

{-  (factorial  n)  es  el  factorial  del  numero  n. 

Por  ejemplo,  factorial  3  ==  6  -> 

factorial  n  =  product  [l..n] 


Bibliografia 

1.  R.  Bird.  Introduccion  a  la  programacion  funcional  con  Haskell.  Prentice  Hall,  2000. 

■  Cap.  1:  Conceptos  fundamentales. 

2.  G.  Hutton  Programming  in  Haskell.  Cambridge  University  Press,  2007. 

■  Cap.  2:  First  steps. 

3.  B.  O'Sullivan,  D.  Stewart  y  J.  Goerzen  Real  World  Haskell.  O'Reilly,  2008. 

■  Cap.  1:  Getting  Started. 

4.  B.  Pope  y  A.  van  IJzendoorn  A  Tour  ofthe  Haskell  Prelude  (basic  functions) 

5.  B.C.  Ruiz,  F.  Gutiérrez,  P.  Guerrero  y  J.E.  Gallardo.  Razonando  con  Haskell.  Thom¬ 
pson,  2004. 


Cap.  2:  Introduccion  a  Haskell. 


S.  Thompson.  Haskell:  The  Craft  ofFunctional  Programming,  Second  Edition.  Addison- 
Wesley,  1999. 


Cap.  2:  Getting  started  with  Haskell  and  Hugs. 


Tema  3 


Tipos  y  clases 

3.1.  Conceptos  båsicos  sobre  tipos 

^Qué  es  un  tipo? 

■  Un  tipo  es  una  coleccion  de  valores  relacionados. 

■  Un  ejemplo  de  tipos  es  el  de  los  valores  booleanos:  Bool 

■  El  tipo  Bool  tiene  dos  valores  True  (verdadero)  y  False  (falso). 

■  v  :  :  T  representa  que  v  es  un  valor  del  tipo  T  y  se  dice  que  "v  tiene  tipo  T". 

■  Cålculo  de  tipo  con  :type 

Prelude>  :type  True 
True  : :  Bool 
Prelude>  :type  False 
False  : :  Bool 

■  El  tipo  Bool  ->  Bool  estå  formado  por  todas  las  funciones  cuyo  argumento  y  va¬ 
lor  son  booleanos. 

■  Ejemplo  de  tipo  Bool  ->  Bool 

Prelude>  :type  not 
not  :  :  Bool  ->  Bool 

Inferencia  de  tipos 

■  Regia  de  inferencia  de  tipos 

f::A->B  e  ::  A 

/77Tb 
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■  Tipos  de  expresiones: 

Prelude>  :type  not  True 

not  True  : :  Bool 
Prelude>  :type  not  False 

not  False  : :  Bool 

Prelude>  :type  not  (not  False) 

not  (not  False)  : :  Bool 

■  Error  de  tipo: 

Prelude>  :type  not  3 

Error:  No  instance  for  (Num  Bool) 

Prelude>  :type  1  +  False 
Error:  No  instance  for  (Num  Bool) 

Ventajas  de  los  tipos 

■  Los  lenguajes  en  los  que  la  inferencia  de  tipo  precede  a  la  evaluacion  se  denominan 

de  tipos  seguros. 

■  Haskell  es  un  lenguaje  de  tipos  seguros. 

■  En  los  lenguajes  de  tipos  seguros  no  ocurren  errores  de  tipos  durante  la  evalua¬ 
cion. 

■  La  inferencia  de  tipos  no  elimina  todos  los  errores  durante  la  evaluacion.  Por  ejem- 
plo, 

Prelude>  :type  1  cdivc  0 
1  cdivc  0  : :  (Integral  t)  =>  t 
Prelude>  1  cdiv£  0 
***  Exception:  divide  by  zero 


3.2.  Tipos  båsicos 

■  Bool  (Valores  logicos): 

•  Sus  valores  son  True  y  False. 


Char  (Caracteres): 
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•  Ejemplos:  ’a’,  ’B’,  ’3’,  ’  +  ’ 

■  String  (Cadena  de  caracteres): 

•  Ejemplos:  "abc",  "1  +  2  =  3" 

■  Int  (Enteros  de  precision  fija): 

•  Enteros  entre  —  231  y  231  —  1. 

•  Ejemplos:  123,  -12 

■  Integer  (Enteros  de  precision  arbitraria): 

•  Ejemplos:  1267650600228229401496703205376. 

■  Float  (Reales  de  precision  arbitraria): 

•  Ejemplos:  1.2,  -23 . 45,  45e-7 

■  Double  (Reales  de  precision  doble): 

•  Ejemplos:  1.2,  -23 . 45,  45e-7 


3.3.  Tipos  compuestos 

3.3.1.  Tipos  listas 

■  Una  lista  es  una  sucesion  de  elementos  del  mismo  tipo. 

■  [T]  es  el  tipo  de  las  listas  de  elementos  de  tipo  T. 

■  Ejemplos  de  listas: 

[False,  True]  ::  [Bool] 

E’aVbVd’]  ::  [Char] 

["uno" , "tres"]  ::  [String] 

■  Longitudes: 

•  La  longitud  de  una  lista  es  el  numero  de  elementos. 

•  La  lista  de  longitud  0,  [] ,  es  la  lista  vacia. 

•  Las  listas  de  longitud  1  se  llaman  listas  unitarias. 


Comentarios: 
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•  El  tipo  de  una  lista  no  informa  sobre  su  longitud: 

[’a’ , ’b’]  : :  [Char] 

[’a’,’b’,’c’]  ::  [Char] 

•  El  tipo  de  los  elementos  de  una  lista  puede  ser  cualquiera: 
I [[’a’ , ’b’] , [’c’]]  ::  [[Char]] 


3.3.2.  Tipos  tuplas 

■  Una  tupla  es  una  sucesion  de  elementos. 

■  {Ti,T2,...r  Tn)  es  el  tipo  de  las  n-tuplas  cuya  componente  z-ésima  es  de  tipo  7). 

■  Ejemplos  de  tuplas: 

(False, True)  ::  (Bool, Bool) 

(False, ’a’ ,True)  ::  (Bool,Char,Bool) 

■  Aridades: 

•  La  aridad  de  una  tupla  es  el  numero  de  componentes. 

•  La  tupla  de  aridad  0,  O,  es  la  tupla  vacfa. 

•  No  estån  permitidas  las  tuplas  de  longitud  1. 

■  Comentarios: 

•  El  tipo  de  una  tupla  informa  sobre  su  longitud: 

(’a’ , ’b’)  ::  (Char, Char) 

(’a’,’b’,’c’)  ::  (Char , Char , Char) 

•  El  tipo  de  los  elementos  de  una  tupla  puede  ser  cualquiera: 
|((’a’,’b’),[’c’,’d’])  ::  ( (Char, Char) , [Char] ) 


3.3.3.  Tipos  funciones 

Tipos  funciones 

■  Una  funcion  es  una  aplicacion  de  valores  de  un  tipo  en  valores  de  otro  tipo. 

■  Ti  — *  T2  es  el  tipo  de  las  funciones  que  aplica  valores  del  tipo  T\  en  valores  del 
tip  o  T2. 

■  Ejemplos  de  funciones: 

not  : :  Bool  ->  Bool 

isDigit  : :  Char  ->  Bool 
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Funciones  con  multiples  argumentos  o  valores 

■  Ejemplo  de  funcion  con  multiples  argumentos: 

suma  (x,y)  es  la  suma  de  x  e  y.  Por  ejemplo,  suma  (2,3)  es  5. 

suma  ::  (Int,Int)  ->  Int 
suma  (x,y)  =  x+y 


■  Ejemplo  de  funcion  con  multiples  valores: 
deCeroÅ  5  es  la  lista  de  los  numeros  desde  0  hasta  n.  Por  ejemplo,  deCeroÅ  n  es 
[0,1, 2, 3, 4, 5], 

deCeroÅ  : :  Int  ->  [Int] 
deCeroÅ  n  =  [0. .n] 


■  Notas: 

1.  En  las  definiciones  se  ha  escrito  la  signatura  de  las  funciones. 

2.  No  es  obligatorio  escribir  la  signatura  de  las  funciones. 

3.  Es  conveniente  escribir  las  signatura. 

3.4.  Parcializacion 

Parcializacion 

■  Mecanismo  de  parcializacion  ( curn/ing  en  inglés):  Las  funciones  de  mås  de  un 
argumento  pueden  interpretarse  como  funciones  que  toman  un  argumento  y  de- 
vuelven  otra  funcion  con  un  argumento  menos. 

■  Ejemplo  de  parcializacion: 

suma’  : :  Int  ->  (Int  ->  Int) 
suma’  x  y  =  x+y 


suma’  toma  un  entero  x  y  devuelve  la  funcion  suma’  x  que  toma  un  entero  y  y 
devuelve  la  suma  de  x  e  y.  Por  ejemplo, 

*Main>  :type  suma’  2 
suma’  2  : :  Int  ->  Int 
*Main>  :type  suma’  2  3 
suma’  23::  Int 
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■  Ejemplo  de  parcializacion  con  tres  argumentos: 

mult  ::  Int  ->  (Int  ->  (Int  ->  Int)) 
mult  x  y  z  =  x*y*z 


mult  toma  un  entero  x  y  devuelve  la  funcion  mult  x  que  toma  un  entero  y  y  de- 
vuelve  la  funcion  mult  x  y  que  toma  un  entero  z  y  devuelve  x*y*z.  Por  ejemplo, 

*Main>  :type  mult  2 

mult  2  : :  Int  ->  (Int  ->  Int) 

*Main>  :type  mult  2  3 
mult  23::  Int  ->  Int 
*Main>  :type  mult  237 
mult  237::  Int 

Aplicacion  parcial 

■  Las  funciones  que  toman  sus  argumentos  de  uno  en  uno  se  llaman  currificadas 
(curried  en  inglés). 

■  Las  funciones  suma  ’  y  mult  son  currificadas. 

■  Las  funciones  currificadas  pueden  aplicarse  parcialmente.  Por  ejemplo, 

*Main>  (suma’  2)  3 
5 

■  Pueden  definirse  funciones  usando  aplicaciones  parciales.  Por  ejemplo, 

suc  : :  Int  ->  Int 
suc  =  suma’  1 


suc  x  es  el  sucesor  de  x.  Por  ejemplo,  suc  2  es  3. 

Convenios  para  reducir  paréntesis 

■  Convenio  1:  Las  flechas  en  los  tipos  se  asocia  por  la  derecha.  Por  ejemplo, 
Int  ->  Int  ->  Int  ->  Int 
representa  a 

Int  ->  (Int  ->  (Int  ->  Int)) 
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■  Convenio  2:  Las  aplicaciones  de  funciones  se  asocia  por  la  izquierda.  Por  ejemplo, 

mult  x  y  z 
representa  a 

( (mult  x)  y)  z 

■  Nota:  Todas  las  funciones  con  multiples  argumentos  se  definen  en  forma  currifi- 
cada,  salvo  que  explfcitamente  se  diga  que  los  argumentos  tienen  que  ser  tuplas. 


3.5.  Polimorfismo  y  sobrecarga 

3.5.1.  Tipos  polimorficos 

■  Un  tipo  es  polimorfico  ("tiene  muchas  formas")  si  contiene  una  variable  de  tipo. 

■  Una  funcion  es  polimorfica  si  su  tipo  es  polimorfico. 

■  La  funcion  length  es  polimofica: 

•  Comprobacion: 

Prelude>  :type  length 
length  : :  [a]  ->  Int 

•  Significa  que  que  para  cualquier  tipo  a,  length  toma  una  lista  de  elementos 
de  tipo  a  y  devuelve  un  entero. 

•  a  es  una  variable  de  tipos. 

•  Las  variables  de  tipos  tienen  que  empezar  por  minuscula. 

•  Ejemplos: 

length  [1,  4,  7,  1]  ^4 

length  ["Lunes",  "Martes",  "Jueves"]  3 

length  [reverse,  tail]  2 

Ejemplos  de  funciones  polimorficas 

■  fst  : :  (a,  b)  ->  a 

fst  (1,’x’)  1 

fst  (True,"Hoy")  True 

■  head  : :  [a]  ->  a 

head  [2,1,4]  2 

head  [’b’,’c’]  ’b’ 
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■  take  :  :  Int  ->  [a]  ->  [a] 

take  3  [3, 5,7,9, 4]  [3,5,7] 

take  2  [’l’ , ’o’ , ’l’ , ’a’]  "lo" 

take  2  "lola"  "lo" 

■  zip  : :  [a]  ->  [b]  ->  [(a,  b)] 

| zip  [3,5]  "lo"  [(3, ’l’) , (5, ’o’)] 

■  id  : :  a  ->  a 

id  3  ^3 

id  ’x’  ’x’ 

3.5.2.  Tipos  sobrecargados 

■  Un  tipo  estå  sobrecargado  si  contiene  una  restriccion  de  clases. 

■  Una  funcion  estå  sobregargada  si  su  tipo  estå  sobrecargado. 

■  La  funcion  sum  estå  sobrecargada: 

•  Comprobacion: 

Prelude>  :type  sum 

sum  : :  (Num  a)  =>  [a]  ->  a 

•  Significa  que  que  para  cualquier  tipo  numérico  a,  sum  toma  una  lista  de  ele¬ 
mentos  de  tip  o  a  y  devuelve  un  valor  de  tip  o  a. 

•  Num  a  es  una  restriccion  de  clases. 

•  Las  restricciones  de  clases  son  expresiones  de  la  forma  C  a,  donde  C  es  el 
nombre  de  una  clase  y  a  es  una  variable  de  tipo. 

•  Ejemplos: 

sum  [2,  3,  5]  ^10 

sum  [2.1,  3.23,  5.345]  10.675 

Ejemplos  de  tipos  sobrecargados 

■  Ejemplos  de  funciones  sobrecargadas: 


•  (-) 
•  (*) 


:  :  (Num  a)  =>  a  ->  a  ->  a 
:  :  (Num  a)  =>  a  ->  a  ->  a 
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•  negate  : :  (Num  a)  =>  a  ->  a 

•  abs  : :  (Num  a)  =>  a  ->  a 

•  signum  : :  (Num  a)  =>  a  ->  a 

■  Ejemplos  de  numeros  sobrecargados: 

•  5  : :  (Num  t)  =>  t 

•  5.2  ::  (Fractional  t)  =>  t 

3.6.  Clases  båsicas 

■  Una  clase  es  una  coleccion  de  tipos  junto  con  ciertas  operaciones  sobrecargadas 
llamadas  métodos. 

■  Clases  båsicas: 


Eq 

tipos  comparables  por  igualdad 

Ord 

tipos  ordenados 

Show 

tipos  mostrabies 

Read 

tipos  legibles 

Num 

tip  os  numéricos 

Integral 

tip  os  enteros 

Fractional 

tipos  fraccionarios 

La  clase  Eq  (tipos  comparables  por  igualdad) 

■  Eq  contiene  los  tipos  cuyos  valores  con  comparables  por  igualdad. 

■  Métodos: 

(==)  : :  a  ->  a  ->  Bool 
(/=)  : :  a  ->  a  ->  Bool 

■  Instancias: 

•  Bool,  Char,  String,  Int,  Integer,  Float  y  Double. 

•  tipos  compuestos:  listas  y  tuplas. 

■  Ejemplos: 
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False  ==  True 
False  /=  True 
’a’  ==  ’b’ 

"aei"  ==  "aei" 
[2,3]  ==  [2,3,2] 

( ’  a’ ,5)  ==  ( ’a’ ,5) 


False 

True 

False 

True 

False 

True 

La  clase  Ord  (tipos  ordenados) 

■  Ord  es  la  subclase  de  Eq  de  tipos  cuyos  valores  estån  ordenados. 

■  Métodos: 

(<),  (<=) ,  (>),  (>=)  ::  a  ->  a  ->  Bool 
min,  max  : :  a  ->  a  ->  a 

■  Instancias: 


•  Bool,  Char,  String,  Int,  Integer,  Float  y  Double. 

•  tipos  compuestos:  listas  y  tuplas. 

■  Ejemplos: 


False  <  True 

True 

min  ’a’  ’b’ 

’a’ 

"elegante"  <  "elefante" 

False 

[1,2,3]  <  [1,2] 

False 

(’a’,2)  <  (’a’ ,1) 

False 

(’a’,2)  <  ( ’b’ , 1) 

True 

La  clase  Show  (tipos  mostrabies) 

■  Show  contiene  los  tipos  cuyos  valores  se  pueden  convertir  en  cadenas  de  caracteres. 

■  Método: 

| show  : :  a  ->  String 

■  Instancias: 


•  Bool,  Char,  String,  Int,  Integer,  Float  y  Double. 

•  tipos  compuestos:  listas  y  tuplas. 


Ejemplos: 
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show  False 
show  ’a’ 
show  123 
show  [1,2,3] 
show  (’a’,True) 


"False" 

"’a’" 

"123" 

"[1,2,3]" 

" ( ’ a’ ,True) " 


La  clase  Read  (tipos  legibles) 

■  Read  contiene  los  tipos  cuyos  valores  se  pueden  obtener  a  partir  de  cadenas  de 
caracteres. 

■  Método: 

| read  ::  String  ->  a 

■  Instancias: 

•  Bool,  Char,  String,  Int,  Integer,  Float  y  Double. 

•  tipos  compuestos:  listas  y  tuplas. 

■  Ejemplos: 


read 

"False" 

:  :  Bool 

False 

read 

II  J  ^  3  II 

Char 

’a’ 

read 

"123"  :  : 

Int 

123 

read 

"[1,2,3] 

"  : :  [Int] 

[1,2,3] 

read 

" ( ’a’ ,True) "  ::  (Char, Bool) 

( ’ a’ ,True) 

La  clase  Num  (tipos  numéricos) 

■  Num  es  la  subclase  de  Eq  y  Ord  de  tipos  cuyos  valores  son  numeros 

■  Métodos: 

(+) ,  (*) ,  (-)  :  :  a  ->  a  ->  a 

negate,  abs,  signum  : :  a  ->  a 

■  Instancias:  Int,  Integer,  Float  y  Double. 

■  Ejemplos: 


2+3 

5 

2. 3+4. 2 

6.5 

negate  2.7 

-2.7 

abs  (-5) 

5 

signum  (-5) 

-1 
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La  clase  Integral  (tipos  enteros) 

■  Integral  es  la  subclase  de  Num  cuyo  tipos  tienen  valores  enteros. 

■  Métodos: 

div  : :  a  ->  a  ->  a 
mod  : :  a  ->  a  ->  a 

■  Instancias:  Int  e  Integer. 

■  Ejemplos: 

11  £div£  4^2 
11  £mod£  4^3 

La  clase  Fractional  (tipos  fraccionarios) 

■  Fractional  es  la  subclase  de  Num  cuyo  tipos  tienen  valores  no  son  enteros. 

■  Métodos: 

(/)  : :  a  ->  a  ->  a 

recip  : :  a  ->  a 

■  Instancias:  Float  y  Double. 

■  Ejemplos: 

7.0  /  2.0  3.5 

recip  0.2  ^  5.0 
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Tema  4 


Definicion  de  funciones 


4.1.  Definiciones  por  composicion 

■  Decidir  si  un  caråcter  es  un  digito: 

_  Prelude  - 

isDigit  : :  Char  ->  Bool 
isDigit  c  =  c  >=  ’0’  &&  c  <=  ’9’ 


■  Decidir  si  un  entero  es  par: 

_  Prelude 

even  : :  (Integral  a)  =>  a  ->  Bool 
even  n  =  n  crem£  2  ==  0 


■  Dividir  una  lista  en  su  n-ésimo  elemento: 
-  Prelude 

splitAt  ::  Int  ->  [a]  ->  ( [a] ,  [a] ) 
split At  n  xs  =  (take  n  xs,  drop  n  xs) 


4.2.  Definiciones  con  condicionales 

■  Calcular  el  valor  absoluto  (con  condicionales): 

_  Prelude  _ 

abs  : :  Int  ->  Int 

abs  n  =  if  n  >=  0  then  n  else  -n 


■  Calcular  el  signo  de  un  numero  (con  condicionales  anidados): 
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_  Prelude 

signum  : :  Int  ->  Int 

signum  n  =  if  n  <  O  then  (-1)  else 

if  n  ==  O  then  O  else  1 


4.3.  Definiciones  con  ecuaciones  con  guardas 


Calcular  el  valor  absoluto  (con  ecuaciones  guardadas): 

Prel  11de 


■  Calcular  el  signo  de  un  numero  (con  ecuaciones  guardadas): 

-  Prelude  - 

signum  n  |  n  <  0  =  -1 

I  n  ==  0  =0 

I  otherwise  =  1 


4.4.  Definiciones  con  equiparacion  de  patrones 

4.4.1.  Constantes  como  patrones 

■  Calcular  la  negacion: 

_  Prelude  _ 

not  : :  Bool  ->  Bool 
not  True  =  False 
not  False  =  True 


■  Calcular  la  conjuncion  (con  valores): 

-  Prelude 

(&&)  : :  Bool  ->  Bool  ->  Bool 

True  &&  True  =  True 
True  &&  False  =  False 
False  &&  True  =  False 
False  &&  False  =  False 
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4.4.2.  Variables  como  patrones 

■  Calcular  la  conjuncion  (con  variables  anonimas): 

_  Prelude  _ 

(&&)  : :  Bool  ->  Bool  ->  Bool 
True  &&  True  =  True 
&&  _  =  False 


■  Calcular  la  conjuncion  (con  variables): 

_  Prelude 

(&&)  : :  Bool  ->  Bool  ->  Bool 
True  &&  x  =  x 
False  &&  _  =  False 


4.4.3.  Tuplas  como  patrones 

■  Calcular  el  primer  elemento  de  un  par: 

_  Prelude 

fst  : :  (a,b)  ->  a 
fst  (x,_)  =  x 


■  Calcular  el  segundo  elemento  de  un  par: 

_  Prelude 

snd  : :  (a,b)  ->  b 
snd  (_,y)  =  y 


4.4.4.  Listas  como  patrones 

■  (testi  xs)  se  verifica  si  xs  es  una  lista  de  3  caracteres  que  empieza  por  ’a’. 

testi  : :  [Char  ]  ->  Bool 
testi  [’a’,_,_]  =  True 
testi  _  =  False 


■  Construccion  de  listas  con  ( : ) 

|  [1,2,3]  =  1 :  [2,3]  =  1 :  (2:  [3]  )  =  1:(2:(3:[])) 

■  (test2  xs)  se  verifica  si  xs  es  una  lista  de  caracteres  que  empieza  por  ’a’. 
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test2  : :  [Char  ]  ->  Bool 
test2  ( ’a’ :_)  =  True 
test2  _  =  False 


■  Decidir  si  una  lista  es  varia: 

. _  Prelude 


nuil  : :  [a]  ->  Bool 
nuli  []  =  True 

nuli  =  False 


1 _ 

Primer  elemento  de  una  lista: 

_ 1 

Pr^l ude 

head  :  : 

[a]  ->  a 

head  (x 

:_)  =  x 

Resto  de  una  lista: 

Prpi hHp 

tail  :  : 

[a]  ->  [a] 

tail  (_ 

:xs)  =  xs 

4.4.5.  Patrones  enteros 

■  Predecesor  de  un  numero  entero: 

_  Prelude 

pred  : :  Int  ->  Int 
pred  0  =0 

pred  (n+1)  =  n 


■  Comentarios  sobre  los  patrones  n+k: 

•  n+k  solo  se  equipara  con  numeros  mayores  o  iguales  que  k 

•  Hay  que  escribirlo  entre  paréntesis. 


4.5.  Expresiones  lambda 

■  Las  funciones  pueden  construirse  sin  nombrarlas  mediante  las  expresiones  lamb¬ 
da. 

■  Ejemplo  de  evaluacion  de  expresiones  lambda: 
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Prelude>  (\x  ->  x+x)  3 
6 

Uso  de  las  expresiones  lambda  para  resaltar  la  parcializacion: 

■  (suma  x  y)  es  la  suma  de  x  e  y. 

■  Definicion  sin  lambda: 


Uso  de  las  expresiones  lambda  en  funciones  como  resultados: 

■  (const  x  y)  es  x. 

■  Definicion  sin  lambda: 


Uso  de  las  expresiones  lambda  en  funciones  con  solo  un  uso: 

■  (impares  n)  es  la  lista  de  los  n  primeros  numeros  impares. 

■  Definicion  sin  lambda: 

impares  n  =  map  f  [0..n-l] 
where  f  x  =  2*x+l 

■  Definicion  con  lambda: 

impares’  n  =  map  (\x  ->  2*x+l)  [0. .n-1] 
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4.6.  Secciones 

■  Los  operadores  son  las  funciones  que  se  escriben  entre  sus  argumentos. 

■  Los  operadores  pueden  convertirse  en  funciones  prefijas  escribiéndolos  entre  pa- 
réntesis. 

■  Ejemplo  de  conversion: 

Prelude>  2+3 
5 

Prelude>  (+)  2  3 
5 

■  Ejemplos  de  secciones: 

Prelude>  (2+)  3 
5 

Prelude>  (+3)  2 
5 

Expresion  de  secciones  mediante  lambdas 

Sea  *  un  operador.  Entonces 

■  (*)  =  \x  ->  (\y  ->  x*y) 

■  (x*)  =  \y  ->  x*y 

■  Oy)  =  \x  ->  x*y 

Aplicaciones  de  secciones 


■  Uso  en  definiciones  de  funciones  mediante  secciones 


suma  ’ 

(+) 

siguiente  = 

(1+) 

inverso 

(1/) 

doble 

(2*) 

mitad 

(/2) 

■  Uso  en  signatura  de  operadores: 

-  Prelude 

(&&)  : :  Bool  ->  Bool  ->  Bool 
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■  Uso  como  argumento: 

Prelude>  map  (2*)  [1..5] 

[2,4,6,8,10] 
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Tema  5 


Definiciones  de  listas  por  comprension 

5.1.  Generadores 

Definiciones  por  comprension 

■  Definiciones  por  comprension  en  Matemåticas: 

{x2:xe  {2, 3, 4, 5}}  =  {4,9,16,25} 

■  Definiciones  por  comprension  en  Haskell: 

Prelude>  [x~2  I  x  <-  [2.. 5]] 

[4,9, 16,25] 

■  La  expresion  x  <-  [2..  5]  se  llama  un  generador. 

■  Ejemplos  con  mås  de  un  generador: 

Prelude>  [(x,y)  I  x  <-  [1,2,3],  y  <-  [4,5]] 

[(1,4), (1,5), (2, 4), (2, 5), (3, 4), (3, 5)] 

Prelude>  [(x,y)  I  y  <-  [4,5],  x  <-  [1,2,3]] 

[(1,4), (2, 4), (3, 4), (1,5), (2, 5), (3, 5)] 

Generadores  dependientes 

■  Ejemplo  con  generadores  dependientes: 

Prelude>  [(x,y)  I  x  <-  [1..3],  y  <-  [x..3]] 

[(1,1),  (1,2), (1,3), (2, 2), (2, 3), (3, 3)] 

■  (concat  xss)  es  la  concatenacion  de  la  lista  de  listas  xss.  Por  ejemplo, 

Iconcat  [[1,3] , [2,5,6] , [4,7]]  [1,3, 2, 5, 6, 4, 7] 
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_  Prelude 

concat  ::  [[a]]  ->  [a] 

concat  xss  =  [x  I  xs  <-  xss,  x  <-  xs] 


Generadores  con  variables  anonimas 

■  Ejemplo  de  generador  con  variable  anonima: 

(primeros  ps)  es  la  lista  de  los  primeros  elementos  de  la  lista  de  pares  ps.  Por 
ejemplo, 

Iprimeros  [(1,3) , (2,5) , (6,3)]  [1,2,6] 


primeros  : :  [(a,  b)]  ->  [a] 
primeros  ps  =  [x  I  (x,_)  <-  ps] 


■  Definicion  de  la  longitud  por  comprension 

-  Prelude 

length  : :  [a]  ->  Int 
length  xs  =  sum  [1  I  _  <-  xs] 


5.2.  Guardas 

■  Las  listas  por  comprension  pueden  tener  guardas  para  restringir  los  valores. 

■  Ejemplo  de  guarda: 

Prelude>  [x  I  x  <-  [1..10],  even  x] 

[2,4,6,8,10] 

La  guarda  es  even  x. 

■  (faet  or  es  n)  es  la  lista  de  los  factores  del  numero  n.  Por  ejemplo, 

Jfactores  30  [1,2,3,5,6,10,15,30] 

factores  : :  Int  ->  [Int] 

factores  n  =  [x  I  x  <-  [l..n],  n  £mod£  x  ==  0] 

■  (primo  n)  se  verifica  si  n  es  primo.  Por  ejemplo. 
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primo  30  False 

primo  31  True 


primo  : :  Int  ->  Bool 

primo  n  =  factores  n  ==  [1,  n] 


■  (primos  n)  es  la  lista  de  los  primos  menores  o  iguales  que  n.  Por  ejemplo, 
| primos  31  [2,3,5,7,11,13,17,19,23,29,31] 

primos  : :  Int  ->  [Int] 

primos  n  =  [x  |  x  <-  [2..n],  primo  x] 


Guarda  con  igualdad 

■  Una  lista  de  asociacion  es  una  lista  de  pares  formado  por  una  clave  y  un  valor. 
Por  ejemplo, 

| [("Juan" ,7) , ("Ana" ,9) , ("Eva", 3)] 

■  (busca  c  t)  es  la  lista  de  los  valores  de  la  lista  de  asociacion  t  cuyas  claves  valen 
c.  Por  ejemplo, 

Prelude>  busca  ’b’  [( ’a’ , 1) , ( ’b’ ,3) , ( ’ c ’ ,5) ,  ( ’b’ ,2)] 

[3,2] 


busca  : :  Eq  a  =>  a  ->  [(a,  b)]  ->  [b] 
busca  c  t  =  [v  |  (c’,  v)  <-  t,  c’  ==  c] 


5.3.  La  funcion  zip 

La  funcion  zip  y  elementos  adyacentes 

■  (zip  xs  ys)  es  la  lista  obtenida  emparejando  los  elementos  de  las  listas  xs  e  ys. 
Por  ejemplo, 

Prelude>  zip  [’a’ , ’b’ , ’c’]  [2, 5, 4, 7] 

[(’a’,2),(’b’,5),(’c’,4)] 

■  (adyacentes  xs)  es  la  lista  de  los  pares  de  elementos  adyacentes  de  la  lista  xs.  Por 
ejemplo. 


46 


adyacentes  [2,5, 3,7]  ^  [(2,5) , (5,3) , (3,7)] 


adyacentes  : :  [a]  ->  [(a,  a)] 
adyacentes  xs  =  zip  xs  (tail  xs) 


Las  funciones  zip,  and  y  listas  ordenadas 

■  (and  xs)  se  verifica  si  todos  los  elementos  de  xs  son  verdaderos.  Por  ejemplo, 

and  [2  <  3,  2+3  ==  5]  True 

and  [2  <  3,  2+3  ==  5,  7  <  7]  False 

■  (ordenada  xs)  se  verifica  si  la  lista  xs  estå  ordenada.  Por  ejemplo, 

ordenada  [1,3, 5, 6, 7]  True 

ordenada  [1,3, 6, 5, 7]  False 


ordenada  : :  Ord  a  =>  [a]  ->  Bool 

ordenada  xs  =  and  [x  <=  y  I  (x,y)  <-  adyacentes  xs] 


La  funcion  zip  y  lista  de  posiciones 

■  (posiciones  x  xs)  es  la  lista  de  las  posiciones  ocupadas  por  el  elemento  x  en  la 
lista  xs.  Por  ejemplo, 

(posiciones  5  [1,5, 3, 5, 5, 7]  [1,3,4] 


posiciones  : :  Eq  a  =>  a  ->  [a]  ->  [Int] 
posiciones  x  xs  = 

[i  |  (x’,i)  <-  zip  xs  [0..n],  x  ==  x’] 
where  n  =  length  xs  -  1 


5.4.  Comprension  de  cadenas 

Cadenas  y  listas 

■  Las  cadenas  son  listas  de  caracteres.  Por  ejemplo, 

*Main>  "abc"  ==  [’a’ , ’b’ , ’c’] 

True 
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■  La  expresion 
| "abc"  ::  String 
es  equivalente  a 
I [’a’.’b’.’c’]  ::  [Char] 


■  Las  funciones  sobre  listas  se  aplican  a  las  cadenas: 


length  "abede"  ^ 
reverse  "abede"  ^ 
"abede"  ++  "fg" 

posiciones  ’a’  "Salamanca"  ^ 


5 

"edeba" 
"abedefg" 
[1,3, 5, 8] 


Definiciones  sobre  cadenas  con  comprension 

■  (minusculas  c)  es  la  cadena  formada  por  las  letras  minusculas  de  la  cadena  c. 
Por  ejemplo, 

| minusculas  "EstoEsUnaPrueba"  "stosnarueba" 

minusculas  : :  String  ->  String 

minusculas  xs  =  [x  I  x  <-  xs,  elem  x  [’a’..’z’]] 


■  (ocurrencias  x  xs)  es  el  numero  de  veces  que  ocurre  el  caråcter  x  en  la  cadena 
xs.  Por  ejemplo, 

I ocurrencias  ’a’  "Salamanca"  ^  4 


ocurrencias  : :  Char  ->  String  ->  Int 
ocurrencias  x  xs  =  length  [x’  I  x’  <-  xs,  x  ==  x’] 


5.5.  Cifrado  César 

■  En  el  cifrado  César  cada  letra  en  el  texto  original  es  reemplazada  por  otra  letra  que 
se  eneuentra  3  posiciones  mås  adelante  en  el  alfabeto. 

■  La  codificacion  de 

I "en  todo  la  medida" 


es 
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| "hq  wrgr  od  phglgd" 

■  Se  puede  generalizar  desplazando  cada  letra  n  posiciones. 

■  La  codificacion  con  un  desplazamiento  5  de 
I "en  todo  la  medida" 


es 

|  " j s  ytit  qf  rjinif" 

■  La  descodificacion  de  un  texto  codificado  con  un  desplazamiento  n  se  obtiene  co- 
dificåndolo  con  un  desplazamiento  —  n. 

5.5.1.  Codificacion  y  descodificacion 

Las  funciones  ord  y  char 


■ 

(ord 

c)  es  el  codigo  del  caråcter  c.  Por  ejemplo. 

ord 

’a’ 

97 

ord 

’b’ 

98 

ord 

’A’ 

65 

■ 

(char  n) 

es  el  caråcter  de  codigo  n.  Por  ejemplo. 

chr 

97 

’a’ 

chr 

98 

’b’ 

chr 

65 

’A’ 

Codificacion  y  descodificacion:  Codigo  de  letra 

■  Simplificacion:  Solo  se  codificarån  las  letras  minusculas  dejando  los  restantes  ca- 
racteres  sin  modificar. 

■  (let2int  c)  es  el  entero  correspondiente  a  la  letra  minuscula  c.  Por  ejemplo, 

let2int  ’a’  o 

let2int  ’d’  ^  3 

let2int  ’z’  25 


let2int  : :  Char  ->  Int 
let2int  c  =  ord  c  -  ord  ’a’ 
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Codificacion  y  descodificacion:  Letra  de  codigo 

■  (int21et  n)  es  la  letra  minuscula  correspondiente  al  entero  n.  Por  ejemplo. 


int21et 

0 

’a’ 

int21et 

3 

’d’ 

int21et 

25 

’z’ 

int21et 

Int  - 

>  Char 

int21et 

n  = 

:  chr 

(ord  ’; 

Codificacion  y  descodificacion:  Desplazamiento 

■  (desplaza  n  c)  es  el  caråcter  obtenido  desplazando  n  caracteres  el  caråcter  c.  Por 
ejemplo. 


desplaza 

3 

’a’ 

’d’ 

desplaza 

3 

’y’ 

’b’ 

desplaza 

(-3) 

’d’ 

’a’ 

desplaza 

(-3) 

’b’ 

’y’ 

desplaza  : :  Int  ->  Char  ->  Char 
desplaza  n  c 

I  elem  c  E’a’..’z’]  =  int21et  ((let2int  c+n)  cmodc  26) 
I  otherwise  =  c 


Codificacion  y  descodificacion 

■  (codif  ica  n  xs)  es  el  resultado  de  codificar  el  texto  xs  con  un  desplazamiento  n. 
Por  ejemplo, 

Prelude>  codifica  3  "En  todo  la  medida" 

"Eq  wrgr  od  phglgd" 

Prelude>  codifica  (-3)  "Eq  wrgr  od  phglgd" 

"En  todo  la  medida" 


codifica  : :  Int  ->  String  ->  String 
codifica  n  xs  =  [desplaza  n  x  I  x  <-  xs] 
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Propiedades  de  la  codificacion  con  QuickCheck 

■  Propiedad:  Al  desplazar  —  n  un  caråcter  desplazado  n,  se  obtiene  el  caråcter  inicial. 

prop_desplaza  n  xs  = 

desplaza  (-n)  (desplaza  n  xs)  ==  xs 


*Main>  quickCheck  prop_desplaza 
+++  OK,  passed  100  tests. 

■  Propiedad:  Al  codificar  con  —  n  una  cadena  codificada  con  n,  se  obtiene  la  cadena 
inicial. 

prop_codif ica  n  xs  = 

codifica  (-n)  (codifica  n  xs)  ==  xs 


*Main>  quickCheck  prop.codif ica 
+++  OK,  passed  100  tests. 

5.5.2.  Anålisis  de  frecuencias 

Tabla  de  frecuencias 

■  Para  descifrar  mensajes  se  parte  de  la  frecuencia  de  aparicion  de  letras. 


■  tabla  es  la  lista  de  la  frecuencias  de  las  letras  en  castellano.  Por  ejemplo,  la  fre¬ 
cuencia  de  la  ’  a  ’  es  del  12.53  %,  la  de  la  ’  b 5  es  1.42  %. 


tabla  : :  [Float] 

tabla  =  [12.53, 

1.42, 

4.68, 

5.86, 

13.68, 

0.69, 

1.01, 

0.70, 

6.25, 

0.44, 

0.01, 

4.97, 

3.15, 

6.71, 

8.68, 

2.51, 

0.88, 

6.87, 

7.98, 

4.63, 

3.93, 

0.90, 

0.02, 

0.22, 

0.90, 

0.52] 

Frecuencias 

■  (porcentaj  e  n  m)  es  el  porcentaje  de  n  sobre  m.  Por  ejemplo, 
|porcentaje  25  40.0 

porcentaje  : :  Int  ->  Int  ->  Float 

porcentaje  n  m  =  (fromlntegral  n  /  f romlntegral  m)  *  100 
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■  (f  recuencias  xs)  es  la  frecuencia  de  cada  una  de  las  minusculas  de  la  cadena  xs. 
Por  ejemplo, 

Prelude>  frecuencias  "en  todo  la  medida" 
[14.3,0,0,21.4,14.3,0,0,0,7.1,0,0,7.1, 
7.1,7.1,14.3,0,0,0,0,7.1,0,0,0,0,0,0] 


frecuencias  : :  String  ->  [Float] 
frecuencias  xs  = 

[porcentaje  (ocurrencias  x  xs)  n  I  x  <-  [’a’..’z’]] 
where  n  =  length  (minusculas  xs) 


5.5.3.  Descifrado 


Descifrado:  Ajuste  chi  cuadrado 


Una  medida  de  la  discrepancia  entre  la  distribucion  observada  os,-  y  la  esperada 
es  i  es 

n— 1 

x2=  E 

■n  es  i 

l— 0  1 

Los  menores  valores  corresponden  a  menores  discrepancias. 


■  (chiCuad  os  es)  es  la  medida  chi  cuadrado  de  las  distribuciones  os  y  es.  Por 
ejemplo, 

chiCuad  [3,5,6]  [3,5,6]  0.0 

chiCuad  [3,5,6]  [5,6,3]  3.9666667 


chiCuad  : :  [Float]  ->  [Float]  ->  Float 
chiCuad  os  es  = 

sum  [((o-e)~2)/e  I  (o,e)  <-  zip  os  es] 


Descifrado:  Rotacion 

■  (rota  n  xs)  es  la  lista  obtenida  rotando  n  posiciones  los  elementos  de  la  lista  xs. 
Por  ejemplo, 

| rota  2  "manolo"  "noloma" 

rota  : :  Int  ->  [a]  ->  [a] 

rota  n  xs  =  drop  n  xs  ++  take  n  xs 
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Descifrado 

■  (descifra  xs)  es  la  cadena  obtenida  descodificando  la  cadena  xs  por  el  anti-despla- 
zamiento  que  produce  una  distribucion  de  minusculas  con  la  menor  desviacion 
chi  cuadrado  respecto  de  la  tabla  de  distribucion  de  las  letras  en  castellano.  Por 
ejemplo, 

*Main>  codifica  5  "Todo  para  nada" 

"Ttit  ufwf  sfif" 

*Main>  descifra  "Ttit  ufwf  sfif" 

"Todo  para  nada" 


descifra  : :  String  ->  String 
descifra  xs  =  codifica  (-factor)  xs 
where 

factor  =  head  (posiciones  (minimum  tabChi)  tabChi) 
tabChi  =  [chiCuad  (rota  n  tabla’)  tabla  I  n  <-  [0..25]] 
tabla’  =  frecuencias  xs 
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Funciones  recursivas 


6.1.  Recursion  numérica 

Recursion  numérica:  El  factorial 

■  La  funcion  factorial: 

factorial  : :  Integer  ->  Integer 
factorial  0  =1 

factorial  (n  +  1)  =  (n  +  1)  *  factorial  n 


■  Cålculo: 


factorial  3=3*  (factorial  2) 


=  3  *  (2  *  (factorial  1)) 

=  3  *  (2  *  (1  *  (factorial  0))) 
=  3  *  (2  *  (1  *  1)) 

=  3  *  (2  *  1) 

=  3*2 
=  6 


Recursion  numérica:  El  producto 

■  Definicion  recursiva  del  producto: 

por  : :  Int  ->  Int  ->  Int 
m  £por£  0  =0 

m  £por£  (n  +  1)  =  m  +  (m  £por£  n) 


■  Cålculo: 
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3  £por£  2=3+  (3  £por£  1) 

=  3  +  (3  +  (3  £por£  0)) 

=  3  +  (3  +  0) 

=  3  +  3 

=  6 

6.2.  Recusion  sobre  lista 

Recursion  sobre  listas:  La  funcion  product 

■  Producto  de  una  lista  de  numeros: 

-  Prelude 

product  : :  Num  a  =>  [a]  ->  a 

product  []  =1 

product  (n:ns)  =  n  *  product  ns 


■  Cålculo: 


product  [7,5,2]  =  7  * 
=  7  * 
=  7  * 
=  7  * 
=  7  * 
=  7  * 
=  70 


(product  [5,2]) 

(5  *  (product  [2])) 

(5  *  (2  *  (product  []))) 
(5  *  (2  *  1)) 

(5  *  2) 

10 


Recursion  sobre  listas:  La  funcion  length 

■  Longitud  de  una  lista: 

_  Prelude 

length  : :  [a]  ->  Int 

length  []  =0 

length  (_:xs)  =  1  +  length  xs 


■  Cålculo: 

length  [2,3,5]  =  1  +  (length  [3,5]) 

=  1  +  (1  +  (length  [5])) 

=  1  +  (1  +  (1  +  (length  []))) 
=  1  +  (1  +  (1  +  0)) 
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=  1  +  (1  +  1) 

=  1  +  2 
=  3 

Recursion  sobre  listas:  La  funcion  reverse 


■  Inversa  de  una  lista: 


■  Cålculo: 

reverse  [2,5,3]  =  (reverse  [5,3])  ++  [2] 

=  ((reverse  [3])  ++  [5])  ++  [2] 

=  (((reverse  [] )  ++  [3])  ++  [5])  ++  [2] 
=  ((□  ++  [3])  ++  [5])  ++  [2] 

=  ([3]  ++  [5])  ++  [2] 

=  [3,5]  ++  [2] 

=  [3,5,2] 

Recursion  sobre  listas:  ++ 


■  Concatenacion  de  listas: 


■  Cålculo: 

[1,3,5]  ++  [2,4]  =  1 : ( [3,5]  ++  [2,4]) 

=  1 : (3 : (  [5]  ++  [2,4])) 

=  1 :  (3 :  (5 :  (  []  ++  [2,4]))) 
=  1:  (3: (5: [2,4])) 

=  1:  (3:  [5,2,4]) 

=  1 :  [3 , 5 , 2 , 4] 

=  [1,3, 5, 2, 4] 
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Recursion  sobre  listas:  Insercion  ordenada 


■  (inserta  e  xs)  inserta  el  elemento  e  en  la  lista  xs  delante  del  primer  elemento 
de  xs  mayor  o  igual  que  e.  Por  ejemplo, 

I inserta  5  [2,4,7,3,6,8,10]  ^  [2,4,5,7,3,6,8,10] 


inserta  : : 

Ord  a  =>  a  ->  [a] 

->  [a] 

inserta  e 

[] 

=  [e] 

inserta  e 

(x:xs)  1  e  <=  x 

=  e  : 

(x:xs) 

1  otherwise 

=  x  : 

inserta  e  xs 

■  Cålculo: 

inserta  4  [1,3, 5, 7]  =  1: (inserta  4  [3,5,7]) 

=  1 : (3 : (inserta  4  [5,7])) 

=  1 :  (3 :  (4 :  (5 :  [7] ) ) ) 

=  1 :  (3 :  (4 :  [5 ,7] ) ) 

=  [1,3, 4, 5, 7] 

Recursion  sobre  listas:  Ordenacion  por  insercion 

■  (ordena_por_insercion  xs)  es  la  lista  xs  ordenada  mediante  insercion.  Por  ejem¬ 
plo, 

I ordena_por_insercion  [2, 4, 3, 6, 3]  [2, 3, 3, 4, 6] 


ordena_por_insercion  : :  Ord  a  =>  [a]  ->  [a] 

ordena_por_insercion  []  =  [] 

ordena_por_insercion  (x:xs)  = 

inserta  x  (ordena_por_insercion  xs) 


■  Cålculo: 

ordena_por_insercion  [7,9,6]  = 

=  inserta  7  (inserta  9  (inserta  6  [])) 
=  inserta  7  (inserta  9  [6]) 

=  inserta  7  [6,9] 

=  [6,7,9] 
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6.3.  Recursion  sobre  varios  argumentos 

Recursion  sobre  varios  argumentos:  La  funcion  zip 

■  Emparejamiento  de  elementos  (la  funcion  zip): 

_  Prelude  _ 

zip  : :  [a]  ->  [b]  ->  [(a,  b)] 

zip  []  _  =  [] 

zip  _  []  =  [] 

zip  (x:xs)  (y:ys)  =  (x,y)  :  zip  xs  ys 


■  Cålculo: 

zip  [1,3,5]  [2, 4, 6, 8] 

=  (1,2)  :  (zip  [3,5]  [4,6,8]) 

=  (1,2)  :  ((3,4)  :  (zip  [5]  [6,8])) 

=  (1,2)  :  ((3,4)  :  ((5,6)  :  (zip  []  [8]))) 

=  (1,2)  :  ((3,4)  :  ((5,6)  :  [])) 

=  [(1,2), (3,4), (5,6)] 


Recursion  sobre  varios  argumentos:  La  funcion  drop 

■  Elimination  de  elementos  iniciales: 

_  Prelude  _ 

drop  : :  Int  ->  [a]  ->  [a] 
drop  0  xs  =  xs 

drop  (n+1)  []  =  [] 

drop  (n+1)  (x:xs)  =  drop  n  xs 


■  Cålculo: 

drop  2  [5, 7, 9, 4] 
=  drop  1  [7,9,4] 

=  drop  0  [9,4] 

=  [9,4] 


drop  5  [1,4] 
=  drop  4  [4] 

=  drop  1  [] 

=  [] 


6.4.  Recursion  multiple 

Recursion  multiple:  La  funcion  de  Fibonacci 

■  La  sucesion  de  Fibonacci  es:  0,1,1/2,3,5,8,13,21, _ Sus  dos  primeros  términos  son 

0  y  1  y  los  restantes  se  obtienen  sumando  los  dos  anteriores. 
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■  (f  ibonacci  n)  es  el  n-ésimo  término  de  la  sucesion  de  Fibonacci.  Por  ejemplo, 
(fibonacci  8  ^  21 


fibonacci  : :  Int  ->  Int 
fibonacci  0  =0 

fibonacci  1  =1 

fibonacci  (n+2)  =  fibonacci  n  +  fibonacci  (n+1) 


Recursion  multiple:  Ordenacion  råpida 


■  Algoritmo  de  ordenacion  råpida: 


ordena  : :  (Ord  a)  =>  [a] 

->  Ea] 

ordena  []  =  [] 

ordena  (x:xs)  = 

(ordena  menores)  ++ 

[x]  ++  (ordena  mayores) 

where  menores  =  [a  1 

a  <-  xs,  a  <=  x] 

mayores  =  [b  1 

b  <-  xs,  b  >  x] 

6.5.  Recursion  mutua 

Recursion  mutua:  Par  e  impar 

■  Par  e  impar  por  recursion  mutua: 

par  : :  Int  ->  Bool 
par  0  =  True 

par  (n+1)  =  impar  n 

impar  : :  Int  ->  Bool 
impar  0  =  False 

impar  (n+1)  =  par  n 


■  Cålculo: 

impar  3 
=  par  2 
=  impar  1 
=  par  0 
=  True 


par  3 
=  impar  2 
=  par  1 
=  impar  0 
=  False 
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Recursion  mutua:  Posiciones  pares  e  impares 

■  (pares  xs)  son  los  elementos  de  xs  que  ocupan  posiciones  pares. 

■  (impares  xs)  son  los  elementos  de  xs  que  ocupan  posiciones  impares. 

pares  : :  [a]  ->  [a] 

pares  []  =  [] 

pares  (x:xs)  =  x  :  impares  xs 

impares  : :  [a]  ->  [a] 
impares  []  =  [] 

impares  (_:xs)  =  pares  xs 


■  Cålculo: 

pares  [1,3,5, 7] 

=  1: (impares  [3,5,7]) 

=  1: (pares  [5,7]) 

=  1: (5: (impares  [7])) 

=  1 :  (5 :  [] ) 

=  [1,5] 

6.6.  Heuristicas  para  las  definiciones  recursivas 

Aplicacion  del  método:  La  funcion  product 

■  Paso  1:  Definir  el  tipo: 
product  : :  [Int]  ->  Int 


■  Paso  2:  Enumerar  los  casos: 

product  : :  [Int]  ->  Int 
product  [] 
product  (n:ns)  = 


■  Paso  3:  Definir  los  casos  simples: 

product  : :  [Int]  ->  Int 
product  []  =1 

product  (n:ns)  = 
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■  Paso  4:  Definir  los  otros  casos: 

product  : :  [Int]  ->  Int 

product  []  =1 

product  (n:ns)  =  n  *  product  ns 


■  Paso  5:  Generalizar  y  simplificar: 

product  : :  Num  a  =>  [a]  ->  a 
product  =  foldr  (*)  1 


donde  (foldr  op  e  1)  pliega  por  la  derecha  la  lista  1  colocando  el  operador  op 
entre  sus  elementos  y  el  elemento  e  al  final.  Por  ejemplo, 

foldr  (+)  6  [2,3,5]  2+(3+(5+6))  16 

foldr  (-)  6  [2,3,5]  2- (3- (5-6))  -2 

Aplicacion  del  método:  La  funcion  drop 


■  Paso  1:  Definir  el  tipo: 


drop  : :  Int  ->  [a]  ->  [a] 
drop  0  []  =  [] 

drop  0  (x:xs)  =  x:xs 

drop  (n+1)  []  =  [] 

drop  (n+1)  (x:xs)  = 


Paso  4:  Definir  los  otros  casos: 
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drop  : :  Int  ->  [a]  ->  [a] 
drop  0  []  =  [] 

drop  0  (x:xs)  =  x:xs 

drop  (n+1)  []  =  [] 

drop  (n+1)  (x:xs)  =  drop  n  xs 


■  Paso  5:  Generalizar  y  simplificar: 

drop  : :  Integral  b  =>  b  ->  [a]  ->  [a] 

drop  0  xs  =  xs 

drop  (n+1)  []  =  [] 

drop  (n+1)  (_:xs)  =  drop  n  xs 


Aplicacion  del  método:  La  funcion  init 

■  init  elimina  el  ultimo  elemento  de  una  lista  no  vacia. 

■  Paso  1:  Definir  el  tipo: 


init 

::  Ea] 

->  Ea] 

init 

(x:xs) 

1  nuil  xs  =  [] 

1  otherwise  = 

■  Paso  4:  Definir  los  otros  casos: 


init 

::  Ea] 

->  Ea] 

init 

(x:xs) 

1  nuil  xs  =  [] 

1  otherwise  =  x  :  init  xs 

Paso  5:  Generalizar  y  simplificar: 
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init  :  :  [a]  ->  [a] 

init  [_]  =  [] 

init  (x:xs)  =  x  :  init  xs 
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Funciones  de  orden  superior 

7.1.  Funciones  de  orden  superior 

Funciones  de  orden  superior 

■  Una  funcion  es  de  orden  superior  si  toma  una  funcion  como  argumento  o  devuel- 
ve  una  funcion  como  resultado. 

■  (dosVeces  f  x)  es  el  resultado  de  aplicar  f  a  f  x.  Por  ejemplo, 

dosVeces  (*3)  2  18 

dosVeces  reverse  [2,5,7]  [2,5,7] 


dosVeces  : :  (a  ->  a)  ->  a  ->  a 
dosVeces  f  x  =  f  (fx) 


■  Prop: dosVeces  reverse  =  id 

donde  id  es  la  funcion  identidad. 
_  Prelude 

id  : :  a  ->  a 
id  x  =  x 


Usos  de  las  funciones  de  orden  superior 

■  Definicion  de  patrones  de  programacion. 

•  Aplicacion  de  una  funcion  a  todos  los  elementos  de  una  lista. 

•  Filtrado  de  listas  por  propiedades. 

•  Patrones  de  recursion  sobre  listas. 
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■  Diseno  de  lenguajes  de  dominio  especifico: 

•  Lenguajes  para  procesamiento  de  mensajes. 

•  Analizadores  sintåcticos. 

•  Procedimientos  de  entrada/salida. 

■  Uso  de  las  propiedades  algebraicas  de  las  funciones  de  orden  superior  para  razo- 
nar  sobre  programas. 

7.2.  Procesamiento  de  listas 

7.2.1.  La  funcion  map 

La  funcion  map:  Definicion 

■  (map  f  xs)  es  la  lista  obtenida  aplicando  f  a  cada  elemento  de  xs.  Por  ejemplo, 

map  (*2)  [3,4,7]  ^  [6,8,14] 

map  sqrt  [1,2,4]  [1.0,1.4142135623731,2.0] 

map  even  [1..5]  [False , True , False , True , False] 


■  Definicion  de  map  por  comprension: 


■  Definicion  de  map  por  recursion: 


Relacion  entre  sum  y  map 


■  La  funcion  sum: 


■  Propiedad: sum  (map  (2*)  xs)  =  2  *  sum  xs 
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■  Comprobacion  con  QuickCheck: 
prop_sum_map  : :  [Int]  ->  Bool 

prop_sum_map  xs  =  sum  (map  (2*)  xs)  ==  2  *  sum  xs 


*Main>  quickCheck  prop_sum_map 
+++  OK,  passed  100  tests. 


7.2.2.  La  funcion  filter 
La  funcion  filter 

■  filter  p  xs  es  la  lista  de  los  elementos  de  xs  que  cumplen  la  propiedad  p.  Por 
ejemplo, 

filter  even  [1,3, 5, 4, 2, 6, 1]  [4,2,6] 

filter  (>3)  [1,3, 5, 4, 2, 6,1]  [5,4,6] 

■  Definicion  de  filter  por  comprension: 

filter  : :  (a  ->  Bool)  ->  [a]  ->  [a] 
filter  p  xs  =  [x  I  x  <-  xs,  p  x] 


■  Definicion  de  filter  por  recursion: 

_  Prelude  _ 

filter  : :  (a  ->  Bool)  ->  [a]  ->  [a] 
filter  _  []  =  [] 

filter  p  (x:xs)  I  p  x  =  x  :  filter  p  xs 

I  otherwise  =  filter  p  xs 


Uso  conjunto  de  map  y  filter 

■  sumaCuadradosPares  xs  es  la  suma  de  los  cuadrados  de  los  numeros  pares  de  la 
lista  xs.  Por  ejemplo, 

| sumaCuadradosPares  [1..5]  20 

sumaCuadradosPares  : :  [Int]  ->  Int 

sumaCuadradosPares  xs  =  sum  (map  02)  (filter  even  xs)) 


Definicion  por  comprension: 
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sumaCuadrado sPares ’  ::  [Int]  ->  Int 

sumaCuadrado sPares ’  xs  =  sum  [x~2  I  x  <-  xs,  even  x] 

Predefinidas  de  orden  superior  para  procesar  listas 

■  all  p  xs  se  verifica  si  todos  los  elementos  de  xs  cumplen  la  propiedad  p.  Por 
ejemplo, 

all  odd  [1,3,5]  True 

all  odd  [1,3,6]  False 

■  any  p  xs  se  verifica  si  aigun  elemento  de  xs  cumple  la  propiedad  p.  Por  ejemplo, 

any  odd  [1,3,5]  True 

any  odd  [2,4,6]  False 

■  takeWhile  p  xs  es  la  lista  de  los  elementos  iniciales  de  xs  que  verifican  el  predi- 
cado  p.  Por  ejemplo, 

| takeWhile  even  [2, 4, 6, 7, 8, 9]  [2,4,6] 

■  dropWhile  p  xs  es  la  lista  xs  sin  los  elementos  iniciales  que  verifican  el  predicado 
p.  Por  ejemplo, 

| dropWhile  even  [2, 4, 6, 7, 8, 9]  ^  [7,8,9] 

7.3.  Funcion  de  plegado  por  la  derecha:  f  oldr 

Esquema  båsico  de  recursion  sobre  listas 


■  Ejemplos  de  definiciones  recursivas: 
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■  Esquema  båsico  de  recursion  sobre  listas: 


El  patron  f  oldr 


■  Redefiniciones  con  el  patron  f  oldr 


■  Definicion  del  patron  f  oldr 


Vision  no  recursiva  de  f  oldr 

■  Cålculo  con  sum: 

sum  [2,3,5] 

=  f oldr  (+)  0  [2,3,5]  [def.  de  sum] 

=  f oldr  (+)  0  2:  (3:  (5:  []))  [notacion  de  lista] 

=  2+ (3+ (5+0))  [sustituir  ( : )  por  (+)  y  []  por  0] 

=  10  [aritmética] 

■  Cålculo  con  sum: 

product  [2,3,5] 

=  f oldr  (*)  1  [2,3,5]  [def.  de  sum] 

=  f oldr  (*)  1  2:  (3:  (5:  []))  [notacion  de  lista] 

=  2*  (3*  (5*1))  [sustituir  (:)  por  (*)  y  []  por  1] 

=  30  [aritmética] 

■  Cålculo  de  f  oldr  f  v  xs 

Sustituir  en  xs  los  ( : )  por  f  y  []  por  v. 
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Definicion  de  la  longitud  mediante  f  oldr 

■  Ejemplo  de  cålculo  de  la  longitud: 

longitud  [2,3,5] 

=  longitud  2: (3: (5: [])) 

=  1+ (1+ (1+0) )  [Sustituciones] 

=  3 

■  Sustituciones: 

•  los  (:)  por  (\_  n  ->  1+n) 

•  la  []  por  0 

■  Definicion  de  length  usando  f  oldr 

longitud  : :  [a]  ->  Int 
longitud  =  foldr  (\_  n  ->  1+n)  0 


Definicion  de  la  inversa  mediante  foldr 

■  Ejemplo  de  cålculo  de  la  inversa: 

inversa  [2,3,5] 

=  inversa  2:  (3:  (5:  [])) 

=  (([]++  [5])  ++  [3])  ++  [2]  [Sustituciones] 

=  [5,3,2] 

■  Sustituciones: 

•  los  (:)  por  (\x  xs  ->  xs  ++  [x] ) 

•  la  []  por  [] 

■  Definicion  de  inversa  usando  foldr 

inversa  : :  [a]  ->  [a] 

inversa  =  foldr  (\x  xs  ->  xs  ++  [x] )  [] 
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Definicion  de  la  concatenacion  mediante  f  oldr 

■  Ejemplo  de  cålculo  de  la  concatenacion: 

conc  [2,3,5]  [7,9] 

=  conc  2:  (3:  (5:  []))  [7,9] 

=  2: (3: (5:  [7,9] ))  [Sustituciones] 

=  [2, 3, 5, 7, 9] 

■  Sustituciones: 

•  los  ( : )  por  ( : ) 

•  la  []  por  ys 

■  Definicion  de  conc  usando  f  oldr 

conc  xs  ys  =  (foldr  (:)  ys)  xs 


7.4.  Funcion  de  plegado  por  la  izquierda:  f  oldl 

Definicion  de  suma  de  lista  con  acumuladores 

■  Definicion  de  suma  con  acumuladores: 

suma  : :  [Integer]  ->  Integer 
suma  =  sumaAux  0 

where  sumaAux  v  []  =  v 

sumaAux  v  (x:xs)  =  sumaAux  (v+x)  xs 


■  Cålculo  con  suma: 

suma  [2,3,7]  =  sumaAux  0  [2,3,7] 

=  sumaAux  (0+2)  [3,7] 
=  sumaAux  2  [3,7] 

=  sumaAux  (2+3)  [7] 

=  sumaAux  5  [7] 

=  sumaAux  (5+7)  [] 

=  sumaAux  12  [] 

=  12 


70 


Patron  de  definicion  de  recursion  con  acumulador 

■  Patron  de  definicion  (generalizacion  de  sumaAux): 

f  v  []  =  v 

f  v  (x:xs)  =  f  (v*x)  xs 


■  Definicion  con  el  patron  f  oldl: 

suma  =  foldl  (+)  0 

product  =  foldl  (*)  1 

or  =  foldl  (ID  False 

and  =  foldl  (&&)  True 


Definicion  de  foldl 

■  Definicion  de  foldl: 

_  Prelude  _ 

foldl  : :  (a  ->  b  ->  a)  ->  a  ->  [b  ]  ->  a 

foldl  f  v  []  =  v 

foldl  f  v  (x:xs)  =  foldl  f  (f  v  x  )  xs 


7.5.  Composicion  de  funciones 

Composicion  de  funciones 

■  Definicion  de  la  composicion  de  dos  funciones: 

-  Prelude  - 

(.)  ::  (b  ->  c)  ->  (a  ->  b)  ->  a  ->  c 
f  .  g  =  \x  ->  f  (g  x) 


■  Uso  de  composicion  para  simplificar  definiciones: 

•  Definiciones  sin  composicion: 

par  n  =  not  (impar  n) 

doVeces  fx  =  f  (f  x  ) 

sumaCuadradosPares  ns  =  sum  (map  (~2)  (filter  even  ns)) 


Definiciones  con  composicion: 
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par 

=  not 

.  impar 

dosVeces  f 

=  f  . 

f 

sumaCuadradosPares 

=  sum 

.  map  (''2) 

.  filter  even 

Composicion  de  una  lista  de  funciones 

■  La  funcion  identidad: 

-  Prelude 

id  : :  a  ->  a 
id  =  \x  ->  x 


■  (composicionLista  f  s)  es  la  composicion  de  la  lista  de  funciones  f  s.  Por  ejemplo, 

composicionLista  [(*2), (~2)]  3  ^18 

composicionLista  [(~2),(*2)]  3  ^36 

composicionLista  [(/9) , (~2) ,  (*2)]  3  4.0 


composicionLista  : :  [a  ->  a]  ->  (a  ->  a) 
composicionLista  =  foldr  (.)  id 


7.6.  Caso  de  estudio:  Codificacion  binaria  y  transmision 
de  cadenas 

■  Objetivos: 

1.  Definir  una  funcion  que  convierta  una  cadena  en  una  lista  de  ceros  y  unos 
junto  con  otra  funcion  que  realice  la  conversion  opuesta. 

2.  Simular  la  transmision  de  cadenas  mediante  ceros  y  unos. 

■  Los  numeros  binarios  se  representan  mediante  listas  de  bits  en  orden  inverso.  Un 
bit  es  cero  o  uno.  Por  ejemplo,  el  numero  1101  se  representa  por  [1,0,14]. 

■  El  tipo  Bit  es  el  de  los  bits. 
type  Bit  =  Int 
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7.6.1.  Cambio  de  bases 

Cambio  de  bases:  De  binario  a  decimal 

■  (bin2int  x)  es  el  numero  decimal  correspondiente  al  numero  binario  x.  Por  ejem- 
plo, 

|bin2int  [1,0, 1,1]  13 

El  cålculo  es 

bin2int  [1,0, 1,1] 

=  bin2int  1 :  (0 :  (1 :  (1 :  [] ) ) ) 

=  1+2* (0+2* (1+2* (1+2*0) ) ) 

=  13 


bin2int  : : 

[Bit] 

->  Int 

bin2int  = 

f  oldr 

( \x  y  ->  x  +  2*y)  0 

Cambio  de  base:  De  decimal  a  binario 


■  (int2bin  x)  es  el  numero  binario  correspondiente  al  numero  decimal  x.  Por  ejem- 
plo, 

I int2bin  13  [1,0, 1,1] 


int2bin  : : 

Int  ->  [Bit] 

int2bin  n 

I  n  <  2  =  [n] 

1  otherwise  =  n  £mod£  2  : 

:  int2bin  (n  £div£  2) 

Por  ejemplo, 
int2bin  13 

=  13  £mod£  2  :  int2bin  (13  £div£  2) 

=  1  :  int2bin  (6  £div£  2) 

=  1  :  (6  £mod£  2  :  int2bin  (6  £div£  2)) 

=  1  :  (0  :  int2bin  3) 

=  1  :  (0  :  (3  £mod£  2  :  int2bin  (3  £div£  2))) 

=  1  :  (0  :  (1  :  int2bin  1)) 

=  1  :  (0  :  (1  :  (1  :  int2bin  0))) 

=  1  :  (0  :  (1  :  (1  :  []))) 

=  [1,0, 1,1] 
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Cambio  de  base:  Comprobacion  de  propiedades 

■  Propiedad:  Al  pasar  un  numero  natural  a  binario  con  int2bin  y  el  resultado  a 
decimal  con  bin2int  se  obtiene  el  numero  inicial. 

prop_int_bin  : :  Int  ->  Bool 
prop_int_bin  x  = 

bin2int  (int2bin  y)  ==  y 
where  y  =  abs  x 


■  Comprobacion: 

*Main>  quickCheck  prop_int_bin 
+++  OK,  passed  100  tests. 

7.6.2.  Codificacion  y  descodificacion 

Creacion  de  octetos 

■  Un  octeto  es  un  grupo  de  ocho  bits. 

■  (creaOcteto  bs)  es  el  octeto  correspondiente  a  la  lista  de  bits  bs;  es  decir,  los  8 
primeros  elementos  de  b  s  si  su  longitud  es  mayor  o  igual  que  8  y  la  lista  de  8 
elemento  anadiendo  ceros  al  final  de  bs  en  caso  contrario.  Por  ejemplo, 

Main*>  creaOcteto  [1,0, 1,1, 0,0, 1,1, 1,0, 0,0] 

[1,0,1, 1,0,0, 1,1] 

Main*>  creaOcteto  [1,0, 1,1] 

[1,0, 1,1, 0,0, 0,0] 


creaOcteto  : :  [Bit]  ->  [Bit] 
creaOcteto  bs  =  take  8  (bs  ++  repeat  0) 


donde  (repeat  x)  es  una  lista  infinita  cuyo  unico  elemento  es  x. 

Codificacion 

■  (codifica  c)  es  la  codificacion  de  la  cadena  c  como  una  lista  de  bits  obtenida 
convirtiendo  cada  caråcter  en  un  numero  Unicode,  convirtiendo  cada  uno  de  di- 
chos  numeros  en  un  octeto  y  concatenando  los  octetos  para  obtener  una  lista  de 
bits.  Por  ejemplo. 
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*Main>  codifica  "abc" 

[1,0, 0,0, 0,1, 1,0, 0,1, 0,0, 0,1, 1,0, 1,1, 0,0, 0,1, 1,0] 


donde  (concat  xss)  es  la  lista  obtenida  concatenando  la  lista  de  listas  xss. 


Codificacion 

■  Ejemplo  de  codificacion, 
codifica  "abc" 

=  concat  .  map  (creaOcteto  .  int2bin  .  ord)  "abc" 

=  concat  .  map  (creaOcteto  .  int2bin  .  ord)  [’a’ , ’b’ , ’c’] 

=  concat  [creaOcteto  .  int2bin  .  ord  ’a’, 
creaOcteto  .  int2bin  .  ord  ’b’, 
creaOcteto  .  int2bin  .  ord  ’c’] 

=  concat  [creaOcteto  [1 ,0 , 0, 0 ,0 , 1 , 1] , 
creaOcteto  [0 , 1 , 0 , 0 , 0 , 1 , 1] , 
creaOcteto  [1,1, 0,0, 0,1,1]] 

=  concat  [[1,0, 0,0, 0,1, 1,0], 

[0,1, 0,0,0, 1,1,0] , 

[1,1, 0,0,0, 1,1,0]] 

=  [1,0, 0,0, 0,1, 1,0, 0,1, 0,0, 0,1, 1,0, 1,1, 0,0, 0,1, 1,0] 

Separacion  de  octetos 

■  (separaOctetos  bs)  es  la  lista  obtenida  separando  la  lista  de  bits  bs  en  listas  de  8 
elementos.  Por  ejemplo, 

*Main>  separaOctetos  [1,0, 0,0, 0,1, 1,0, 0,1, 0,0, 0,1, 1,0] 

[[1,0, 0,0, 0,1, 1,0] , [0,1, 0,0, 0,1, 1,0]] 


separaOctetos 

::  [Bit]  ->  [[Bit]] 

separaOctetos 

[]  =  [] 

separaOctetos 

bs  = 

take  8  bs 

:  separaOctetos  (drop  8  bs) 
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Descodificacion 

■  (descodif  ica  bs)  es  la  cadena  correspondiente  a  la  lista  de  bits  bs.  Por  ejemplo, 

*Main>  descodif ica  [1,0, 0,0,0,1,150,0,1,0, 050,1,1,0,1, 1,0,0,0,1,1,01 
"abc" 


descodif ica  : :  [Bit]  ->  String 

descodifica  =  map  (chr  .  bin2int)  .  separaOctetos 


Por  ejemplo, 

descodifica  [1,0, 0,0, 0,1, 1,0, 0,1, 0,0, 0,1, 1,0, 1,1, 0,0, 0,1, 1,0] 

=  (map  (chr  .  bin2int)  .  separaOctetos) 

[1,0, 0,0, 0,1, 1,0, 0,1, 0,0, 0,1, 1,0, 1,1, 0,0, 0,1, 1,0] 

=  map  (chr  .  bin2int)  [[1,0, 0,0, 0,1, 1,0],  [0,1, 0,0, 0,1, 1,0], [1,1, 0,0, 0,1, 1,0]] 
=  [(chr  .  bin2int)  [1 ,0 , 0, 0, 0 , 1 , 1 , 0] , 

(chr  .  bin2int)  [0 , 1 ,0 , 0, 0 , 1 , 1 , 0] , 

(chr  .  bin2int)  [1,1, 0,0, 0,1, 1,0]] 

=  [chr  97,  chr  98,  chr  99] 

=  "abc" 

Transmision 

■  Los  canales  de  transmision  pueden  representarse  mediante  funciones  que  trans¬ 
forman  cadenas  de  bits  en  cadenas  de  bits. 

■  (transmite  c  t)  es  la  cadena  obtenida  transmitiendo  la  cadena  t  a  través  del 
canal  c.  Por  ejemplo, 

*Main>  transmite  id  "Texto  por  canal  correcto" 

"Texto  por  canal  correcto" 


transmite  ::  ([Bit]  ->  [Bit])  ->  String  ->  String 
transmite  canal  =  descodifica  .  canal  .  codifica 


Correccion  de  la  transmision 

■  Propiedad:  Al  trasmitir  cualquier  cadena  por  el  canal  identidad  se  obtiene  la  ca¬ 
dena. 
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prop_transmite  : :  String  ->  Bool 
prop_transmite  cs  = 

transmite  id  cs  ==  cs 


■  Comprobacion  de  la  correccion: 

*Main>  quickCheck  prop_transmite 
+++  OK,  passed  100  tests. 
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Razonamiento  sobre  programas 


8.1.  Razonamiento  ecuacional 

8.1.1.  Cålculo  con  longitud 


■  Programa: 


longitud  []  =0 

--  longitud. 1 

longitud  (_:xs)  =  1  +  longitud 

xs  --  longitud. 2 

Propiedad:  longitud  [2,3,1]  =  3 

Demostracion: 

longitud  [2,3,1] 

= 1  +  longitud  [2,3] 

[por  longitud. 2] 

= 1  + (1  +  longitud  [3] ) 

[por longitud. 2] 

=  1  +  (1  +  (1  +  longitud  [] )) 

[por longitud.  2] 

=  1  +  (1  +  (1  +  0) 

=  3 

[por longitud. 1] 

.  Propiedad  de  intercambia 

Programa: 

intercambia  : :  (a,b)  ->  (b,a) 

intercambia  (x,y)  =  (y,x) 

--  intercambia 

■  Propiedad:  intercambia  (intercambia  (x,y))  =  (x,y). 
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■  Demostracion: 

intercambia  (intercambia  (x,y)) 

= intercambia  (y,x)  [por intercambia] 

=  (x,y)  [por intercambia] 

Comprobacion  con  QuickCheck 

■  Propiedad: 

prop_intercambia  : :  Eq  a  =>  a  ->  a  ->  Bool 
prop_intercambia  x  y  = 

intercambia  (intercambia  (x,y))  ==  (x,y) 


■  Comprobacion: 

*Main>  quickGheck  prop_intercambia 
+++  OK,  passed  100  tests. 

8.1.3.  Inversa  de  listas  unitarias 


■  Inversa  de  una  lista: 


inversa 

::  Ea] 

->  Ea] 

inversa 

[] 

=  [] 

—  inversa.l 

inversa 

(x:xs) 

=  inversa  xs  ++  [x] 

—  inversa.2 

■  Prop.:  inversa  [x]  =  [x] 

inversa  [x] 

=  inversa  (x :  [] )  [notacion  de  lista] 

=  (inversa  [] )  ++  [x]  [inversa.2] 

=  []  ++  [x]  [inversa.l] 

=  [x]  [def.  de  ++] 

Comprobacion  con  QuickCheck 

■  Propiedad: 

prop_inversa_unitaria  : :  Eq  a  =>  a  ->  Bool 
prop_inversa_unitaria  x  = 
inversa  [x]  ==  [x] 


■  Comprobacion: 

*Main>  quickCheck  prop_inversa_unitaria 
+++  OK,  passed  100  tests. 
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8.1.4.  Razonamiento  ecuacional  con  anålisis  de  casos 

■  Negacion  logica: 

_  Prelude  _ 

not  : :  Bool  ->  Bool 
not  False  =  True 
not  True  =  False 


■  Prop.:  not  (not  x)  =  x 

■  Demostracion  por  casos: 

•  Caso  1:  x  =  True: 

not  (not  True)  =  not  False  [not. 2] 
=  True  [not . 1] 

•  Caso  2:  x  =  False: 

not  (not  False)  =  not  True  [not.l] 

=  False  [not. 2] 

Comprobacion  con  QuickCheck 

■  Propiedad: 

prop_doble_negacion  : :  Bool  ->  Bool 
prop_doble_negacion  x  = 
not  (not  x)  ==  x 


■  Comprobacion: 

*Main>  quickCheck  prop_doble_negacion 
+++  OK,  passed  100  tests. 


8.2.  Razonamiento  por  induccion  sobre  los  naturales 

8.2.1.  Esquema  de  induccion  sobre  los  naturales 

Para  demostrar  que  todos  los  numeros  naturales  tienen  una  propiedad  P  basta  pro- 

bar: 

1.  Caso  base  n=0: 

P(0). 
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2.  Caso  inductivo  n=  (m+1) : 

Suponiendo  P  (m)  demostrar  P  (m+1) . 

En  el  caso  inductivo,  la  propiedad  P  (n)  se  llama  la  hipotesis  de  induccion. 

8.2.2.  Ejemplo  de  induccion  sobre  los  naturales 

Ejemplo  de  induccion  sobre  los  naturales:  Propiedad 

■  (replicate  n  x)  es  la  lista  formda  por  n  elementos  iguales  a  x.  Por  ejemplo, 
[replicate  35  [5,5,5] 

-  Prelude  - 

replicate  : :  Int  ->  a  ->  [a] 

replicate  0  _  =  [] 

replicate  (n+1)  x  =  x  :  replicate  n  x 


■  Prop.:  length  (replicate  n  x)  =  n 


Ejemplo  de  induccion  sobre  los  naturales:  Demostracion 

■  Caso  base  (n=0): 

length  (replicate  0  x) 

=  length  []  [por  replicate  .  1] 

=  0  [por  def.  length] 


■  Caso  inductivo  (n=m+l): 

length  (replicate  (m+1)  x) 

= length  (x : (replicate  m  x)) 
=  1  +  length  (replicate  m  x) 
=  1  +  m 
=  m  +  1 


[por  replicate .  2] 

[por  def.  length] 

[por  hip.  ind.] 

[por  conmutativa  de  +] 


Ejemplo  de  induccion  sobre  los  naturales:  Verificacion 

Verificacion  con  QuickCheck: 

■  Especificacion  de  la  propiedad: 

prop_length_replicate  : :  Int  ->  Int  ->  Bool 
prop_length_replicate  n  xs  = 

length  (replicate  m  xs)  ==  m 
where  m  =  abs  n 
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■  Comprobacion  de  la  propiedad: 

*Main>  quickCheck  prop_length_replicate 
OK,  passed  100  tests. 


8.3.  Razonamiento  por  induccion  sobre  listas 

8.3.1.  Esquema  de  induccion  sobre  listas 

Para  demostrar  que  todas  las  listas  finitas  tienen  una  propiedad  P  basta  probar: 

1.  Casobase  xs=[]: 

P  ( [] ) . 

2.  Caso  inductivo  xs=(y:ys): 

Suponiendo  P  (ys)  demostrar  P  (y :  ys) . 

En  el  caso  inductivo,  la  propiedad  P  (ys)  se  llama  la  hipotesis  de  induccion. 

8.3.2.  Asociatividad  de  ++ 

■  Programa: 

_  Prelude  _ 

(++)  ::  [a]  ->  [a]  ->  [a] 

[]  ++  ys  =  ys  —  ++.1 

(x:xs)  ++  ys  =  x  :  (xs  ++  ys)  —  ++.2 


■  Propiedad:  xs++ (ys++zs)  =  (xs++ys) ++zs 

■  Comprobacion  con  QuickCheck: 

prop_asociativa_conc  : :  [Int]  ->  [Int]  ->  [Int]  ->  Bool 
prop_asociativa_conc  xs  ys  zs  = 
xs++ (ys++zs) == (xs++ys) ++zs 


Main>  quickCheck  prop_asociatividad_conc 
OK,  passed  100  tests. 


Demostracion  por  induccion  en  xs: 
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•  Caso  base  xs=  [] :  Reduciendo  el  lado  izquierdo 

xs++(ys++zs) 

=  []++(ys++zs)  [por  hipotesis] 

=  ys++zs  [por++.l] 

y  reduciendo  el  lado  derecho 

(xs++ys)++zs 

=  ( []  ++ys)  ++zs  [por  hipotesis] 

=  ys++zs  [por++.l] 

Luego,  xs++(ys++zs)  =  (xs++ys)++zs 

■  Demostracion  por  induccion  en  xs: 

•  Caso  inductivo  xs=a :  as:  Suponiendo  la  hipotesis  de  induccion 

as++(ys++zs)  =  (as++ys)++zs  hay  que  demostrar  que 
(a:as)++(ys++zs)=( (a:as)++ys)++zs 
(a:as)++(ys++zs) 

=  a: (as++(ys++zs))  [por ++.2] 

=  a:  ( (as++ys)++zs)  [por  hip.  ind.] 

=  (a:  (as++ys) )++zs  [por++.2] 

=  ((a:as)++ys)++zs  [por++.2] 

8.3.3.  []  es  la  identidad  para  ++  por  la  derecha 

■  Propiedad:  xs++  []  =xs 

■  Comprobacion  con  QuickCheck: 

prop_identidad_concatenacion  : :  [Int]  ->  Bool 
prop_identidad_concatenacion  xs  =  xs++[]  ==  xs 

Main>  quickCheck  prop_identidad_concatenacion 
OK,  passed  100  tests. 

■  Demostracion  por  induccion  en  xs: 

•  Caso  base  xs=  [] : 

xs++  [] 

=  □++[] 

=  []  [por  ++ .  1] 
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•  Caso  inductivo  xs=  (a :  as) :  Suponiendo  la  hipotesis  de  induccion 
as++  []  =as  hay  que  demostrar  que 
(a:as)++[]  =  (a:as) 

(a:  as)++  [] 

=  a:(as++[])  [por ++.2] 

=  a :  as  [por  hip.  ind.] 

8.3.4.  Relacion  entre  length  y  ++ 


■  Programas: 


length 

: :  [a]  ->  Int 

length 

[]  =0 

--  length. 1 

length 

(x:xs)  =  1  +  n_length  xs 

--  length. 2 

(++)  :: 

[a]  ->  [a]  ->  [a] 

[] 

++  ys  =  ys 

--  ++.1 

(x:xs) 

++  ys  =  x  :  (xs  ++  ys) 

--  ++.2 

■  Propiedad:  length(xs++ys)  =  (length  xs)  +  (length  ys) 

■  Comprobacion  con  QuickCheck: 

prop_length_append  : :  [Int]  ->  [Int]  ->  Bool 
prop_length_append  xs  ys  = 

length(xs++ys)==(length  xs)+(length  ys) 


Main>  quickCheck  prop_length_append 
OK,  passed  100  tests. 

■  Demostracion  por  induccion  en  xs: 


[por  ++ .  1] 

[por  aritmética] 
[por  length.  1] 


•  Caso  base  xs=  [] : 
length  ( []  ++ys) 

=  length  ys 
=  0+ (length  ys) 

=  (length  [])  +  (length  ys) 


Demostracion  por  induccion  en  xs: 
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Caso  inductivo  xs=  (a :  as) :  Suponiendo  la  hipotesis  de  induccion 
length(as++ys)  =  (length  as)+(length  ys) 
hay  que  demostrar  que 

length( (a: as)++ys)  =  (length  (a : as) )+ (length  ys) 
length ((a: as) ++ys) 

=  length (a: (as++ys))  [por ++.2] 

=  1  +  length (as++ys)  [por  length.  2] 

=  1  +  ((length  as)  +  (length  ys))  [por  hip.  ind.] 

=  (1  +  (length  as))  +  (length  ys)  [por  aritmética] 

=  (length  (a:as))  +  (length  ys)  [por  length. 2] 


8.3.5.  Relacion  entre  take  y  drop 


■  Programas: 


take  : : 

:  Int  ->  [a]  ->  [a] 

take  0 

=  [] 

—  take . 1 

take  _ 

[]  =  [] 

—  take. 2 

take  n 

(x:xs)  =  x  :  take  (n-1)  xs 

--  take. 3 

drop  :  : 

:  Int  ->  [a]  ->  [a] 

drop  0 

xs  =  xs 

--  drop.l 

drop  _ 

[]  =  [] 

--  drop, 2 

drop  n 

(_:xs)  =  drop  (n-1)  xs 

--  drop. 3 

(++)  :: 

:  Ea]  ->  [a]  ->  [a] 

[] 

++  ys  =  ys 

--  ++.1 

(x:xs) 

++  ys  =  x  :  (xs  ++  ys) 

--  ++.2 

■  Propiedad: take  n  xs  ++  drop  n  xs  =  xs 

■  Comprobacion  con  QuickCheck: 

prop_take_drop  : :  Int  ->  [Int]  ->  Property 
prop_take_drop  n  xs  = 

n  >=  0  ==>  take  n  xs  ++  drop  n  xs  ==  xs 


Main>  quickCheck  prop_take_drop 
OK,  passed  100  tests. 


Demostracion  por  induccion  en  n: 
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•  Caso  base  n=0: 

take  0  xs  ++  drop  0  xs 

=  []  ++  xs  [por  take  .  1  y  drop .  1] 

=  xs  [por++.l] 

•  Caso  inductivo  n=m+l:  Suponiendo  la  hipotesis  de  induccion  1 

(Vxs  ::  [fl])take  m  xs  ++  drop  m  xs  =  xs 
hay  que  demostrar  que 

(Vxs  ::  [fl])take  (m+1)  xs  ++  drop  (m+1)  xs  =  xs 


Lo  demostraremos  por  induccion  en  xs: 

■  Caso  base  xs=[]: 

take  (m+1)  []  ++  drop  (m+1)  [] 

=  []  ++  []  [por  take .  2  y  drop. 2] 

=  []  [por  ++ .  1] 


■  Caso  inductivo  xs=  (a :  as) :  Suponiendo  la  hip.  de  induccion  2 
take  (m+1)  as  ++  drop  (m+1)  as  =  as 
hay  que  demostrar  que 

take  (m+1)  (aras)  ++  drop  (m+1)  (aras)  =  (aras) 
take  (m+1)  (aras)  ++  drop  (m+1)  (aras) 

=  (ar (take  m  as))  ++  (drop  m  as)  [take .3 y drop. 3] 

=  (ar ((take  m  as)  ++  (drop  m  as))  [por ++.2] 

=  a:as  [por  hip.  de  ind.  1] 


8.3.6.  La  concatenacion  de  listas  vadas  es  vada 

■  Programas: 

, _  Prelude  _ 


nuli  : :  [a]  -> 
nuil  [] 

Bool 

True 

--  nuli . 1 

nuli  (_:_) 

= 

False 

--  nuli. 2 

(++)  ::  Ea]  -> 

[a]  - 

->  Ea] 

[]  ++  ys 

= 

ys 

--  (++).l 

(xrxs)  ++  ys 

= 

x  :  (xs  ++  ys) 

-  (++)  •  2 

■  Propiedad:  nuli  xs  =  nuil  (xs  ++  xs). 

■  Demostracion  por  induccion  en  xs: 


•  Caso  1:  xs  =  [] :  Reduciendo  el  lado  izquierdo 

nuil  xs 

=  nuli  []  [por  hipotesis] 

=  True  [por  nuli .  1] 

y  reduciendo  el  lado  derecho 

nuli  (xs  ++  xs) 

=  nuil  (  []  ++  [] )  [por  hipotesis] 

=  nuil  []  [por  (++)  .  1] 

=  True  [por  nuil .  1] 

Luego,  nuli  xs  =  nuil  (xs  ++  xs). 

Demostracion  por  induccion  en  xs: 

•  Caso  xs  =  (y :  ys) :  Reduciendo  el  lado  izquierdo 

nuil  xs 

=  nuil  (y :  ys)  [por  hipotesis] 

=  False  [por  nuil. 2 

y  reduciendo  el  lado  derecho 

nuli  (xs  ++  xs) 

=  nuil  ((y:ys)  ++  (y:ys))  [por  hipotesis] 

=  nuli  (y:(ys  ++  (y:ys))  [por  (++).2] 

=  False  [por  nuil. 2 

Luego,  nuli  xs  =  nuil  (xs  ++  xs). 


Equivalencia  de  funciones 

Programas: 

inversal,  inversa2  ::  [a]  ->  [a] 

inversal  []  =  [] 

inversal  (x:xs)  =  inversal  xs  ++  [x] 

inversa2  xs  =  inversa2Aux  xs  [] 

where  inversa2Aux  []  ys  =  ys 

inversa2Aux  (x:xs)  ys  =  inversa2Aux  xs  (x:ys) 


--  inversal. 1 
--  inversal. 2 

--  inversa2.1 
--  inversa2Aux. 1 
--  inversa2Aux.2 


Propiedad: inversal  xs  =  inversa2  xs 
Comprobacion  con  QuickCheck: 
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prop_equiv_inversa  : :  [Int]  ->  Bool 
prop_equiv_inversa  xs  =  inversal  xs  ==  inversa2  xs 


■  Demostracion:  Es  consecuencia  del  siguiente  lema: 


inversal  xs  ++  ys 

En  efecto, 

inversal  xs 
=  inversal  xs  ++  [] 

=  inversa2Aux  xs  ++  [] 
= inversa2  xs 


inversa2Aux  xs  ys 


[por  identidad  de  ++] 
[por  el  lema] 

[por  el  inversa2 . 1] 


■  Demostracion  del  lema:  Por  induccion  en  xs: 


•  Caso  base  xs=  [] : 
inversal  []  ++  ys 
=  []  ++  ys 
=  ys 

=  inversa2Aux  []  ys 


[por  inversal .  1] 
[por  ++ .  1] 

[por  inversa2Aux .  1] 


•  Caso  inductivo  xs=  (a :  as) :  La  hipotesis  de  induccion  es 

(Vi/s  ::  [«])inversal  as  ++  ys  =  inversa2Aux  as  ys 


Por  tanto, 

inversal  (a:as)  ++  ys 
=  (inversal  as  ++  [a] )  ++  ys 
=  (inversal  as)  ++  ( [a]  ++  ys) 
=  (inversal  as)  ++  (a:ys) 

=  (inversa2Aux  as  (a:ys) 

= inversa2Aux  (a:as)  ys 


[por  inversal .  2] 

[por  asociativa  de  ++] 
[por  ley  unitaria] 

[por  hip.  de  induccion] 
[por  inversa2Aux .  2] 


8.5.  Propiedades  de  funciones  de  orden  superior 

Relacion  entre  sum  y  map 

■  La  funcion  sum: 

-  Prelude  - 

sum  :  :  [Int]  ->  Int 

sum  []  =0 

sum  (x:xs)  =  x  +  sum  xs 
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■  Propiedad: sum  (map  (2*)  xs)  =  2  *  sum  xs 

■  Comprobacion  con  QuickCheck: 
prop_sum_map  : :  [Int]  ->  Bool 

prop_sum_map  xs  =  sum  (map  (2*)  xs)  ==  2  *  sum  xs 


*Main>  quickCheck  prop_sum_map 
+++  OK,  passed  100  tests. 


Demostracion  de  la  propiedad  por  induccion  en  xs 


■  Caso  [] : 

sum  (map  (2*)  xs) 

=  sum  (map  (2*)  [] ) 
=  sum  [] 

=  0 

=  2*0 
=  2  *  sum  [] 

=  2  *  sum  xs 


[por  hipotesis] 
[por  map.  1] 

[por  sum.  1] 

[por  aritmética] 
[por  sum.  1] 

[por  hipotesis] 


■  Caso  xs=(y  :ys):  Entonces, 
sum  (map  (2*)  xs) 

=  sum  (map  (2*)  (y:ys)) 

=  sum  ((2*)  y  :  (map  (2* 
=  (2*)  y  +  (sum  (map  (2* 
=  (2*)  y  +  (2  *  sum  ys) 

=  (2  *  y)  +  (2  *  sum  ys) 
=  2  *  (y  +  sum  ys) 

=  2  *  sum  (y:ys) 

=  2  *  sum  xs 


[por  hipotesis] 
ys))  [por  map.  2] 

ys))  [por  sum. 2] 

[por  hip.  de  induccion] 
[por  (2*)] 

[por  aritmética] 

[por  sum .  2] 

[por  hipotesis] 


Comprobacion  de  propiedades  con  argumentos  funcionales 

■  La  aplicacion  de  una  funcion  a  los  elemntos  de  una  lista  conserva  su  longitud: 

prop_map_length  (Function  _  f)  xs  = 
length  (map  f  xs)  ==  length  xs 


En  el  inicio  del  fichero  hay  que  escribir 
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import  Test.QuickCheck.Function 
■  Comprobacion 

*Main>  quickCheck  prop_map_length 
+++  OK,  passed  100  tests. 
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Tema  9 


Declaraciones  de  tipos  y  clases 


9.1.  Declaraciones  de  tipos 

Declaraciones  de  tipos  como  sinonimos 

■  Se  puede  definir  un  nuevo  nombre  para  un  tipo  existente  mediante  una  declara- 
cion  de  tipo. 

■  Ejemplo:  Las  cadenas  son  listas  de  caracteres. 

_  Prelude  _ 

type  String  =  [Char] 


■  El  nombre  del  tipo  tiene  que  empezar  por  mayuscula. 


Declaraciones  de  tipos  nuevos 

■  Las  declaraciones  de  tipos  pueden  usarse  para  facilitar  la  lectura  de  tipos.  Por 
ejemplo. 


•  Las  posiciones  son  pares  de  enteros. 


•  (izquierda  p)  es  la  posicion  a  la  izquierda  de  la  posicion  p.  Por  ejemplo, 
I izquierda  (3,5)  ^  (2,5) 


izquierda  : :  Pos  ->  Pos 
izquierda  (x,y)  =  (x-l,y) 
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Declaraciones  de  tipos  parametrizadas 

■  Las  declaraciones  de  tipos  pueden  tener  paråmetros.  Por  ejemplo, 

•  Par  a  es  el  tipo  de  pares  de  elementos  de  tipo  a 
type  Par  a  =  (a,a) 

•  (multiplica  p)  es  el  producto  del  par  de  enteros  p.  Por  ejemplo, 

| multiplica  (2,5)  ^  10 

multiplica  : :  Par  Int  ->  Int 
multiplica  (x,y)  =  x*y 

•  (copia  x)  es  el  par  formado  con  dos  copias  de  x.  Por  ejemplo, 

| copia  5  (5,5) 

copia  : :  a  ->  Par  a 
copia  x  =  (x,x) 


Declaraciones  anidadas  de  tipos 

■  Las  declaraciones  de  tipos  pueden  anidarse.  Por  ejemplo, 

•  Las  posiciones  son  pares  de  enteros. 
type  Pos  =  (Int, Int) 

•  Los  movimientos  son  funciones  que  va  de  una  posicion  a  otra. 
type  Movimiento  =  Pos  ->  Pos 

■  Las  declaraciones  de  tipo  no  pueden  ser  recursivas.  Por  ejemplo,  el  siguiente  co- 
digo  es  erroneo. 

type  Arbol  =  (Int , [Arbol] ) 

Al  intentar  cargarlo  da  el  mensaje  de  error 
ICycle  in  type  synonym  declarations 
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9.2.  Definiciones  de  tipos  de  datos 

Definicion  de  tipos  con  data 

■  En  Haskell  pueden  definirse  nuevos  tipos  mediante  data. 

■  El  tipo  de  los  booleanos  estå  formado  por  dos  valores  para  representar  lo  falso  y 
lo  verdadero. 

_  Prelude  _ 

data  Bool  =  False  I  True 

■  El  sfmbolo  I  se  lee  como  "o". 

■  Los  valores  False  y  True  se  llaman  los  constructores  del  tipo  Bool. 

■  Los  nombres  de  los  constructores  tienen  que  empezar  por  mayuscula. 

Uso  de  los  valores  de  los  tipos  definidos 

■  Los  valores  de  los  tipos  definidos  pueden  usarse  como  los  de  los  predefinidos. 

■  Definicion  del  tipo  de  movimientos: 

data  Mov  =  Izquierda  I  Derecha  I  Årriba  I  Åbajo 


■  Uso  como  argumento:  (movimiento  m  p)  es  la  posicion  obtenida  aplicando  el  mo- 
vimiento  m  a  la  posicion  p.  Por  ejemplo, 

I movimiento  Arriba  (2,5)  ^  (2,6) 


movimiento  : :  Mov  ->  Pos  ->  Pos 
movimiento  Izquierda  (x,y)  =  (x-l,y) 

movimiento  Derecha  (x,y)  =  (x+l,y) 

movimiento  Arriba  (x,y)  =  (x,y+l) 

movimiento  Abaj  o  (x,y)  =  (x,y-l) 


■  Uso  en  listas:  (movimientos  ms  p)  es  la  posicion  obtenida  aplicando  la  lista  de 
movimientos  ms  a  la  posicion  p.  Por  ejemplo, 

[movimientos  [Arriba,  Izquierda]  (2,5)  (1,6) 
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movimientos  : :  [Mov]  ->  Pos  ->  Pos 
movimientos  []  p  =  p 

movimientos  (m:ms)  p  =  movimientos  ms  (movimiento  m  p) 


■  Uso  como  valor:  (opuesto  m)  es  el  movimiento  opuesto  de  m. 
I movimiento  (opuesto  Arriba)  (2,5)  (2,4) 


opuesto  : :  Mov  ->  Mov 
opuesto  Izquierda  =  Derecha 

opuesto  Derecha  =  Izquierda 

opuesto  Arriba  =  Abaj  o 

opuesto  Abaj  o  =  Arriba 


Definicion  de  tipo  con  constructores  con  paråmetros 

■  Los  constructores  en  las  definiciones  de  tipos  pueden  tener  paråmetros. 

■  Ejemplo  de  definicion 

data  Figura  =  Circulo  Float  I  Reet  Float  Float 


■  Tipos  de  los  constructores: 

*Main>  :type  Circulo 

Circulo  : :  Float  ->  Figura 

*Main>  :type  Reet 

Reet  :  :  Float  ->  Float  ->  Figura 

■  Uso  del  tipo  como  valor:  (cuadrado  n)  es  el  cuadrado  de  lado  n. 

cuadrado  : :  Float  ->  Figura 
cuadrado  n  =  Reet  n  n 


■  Uso  del  tipo  como  argumento:  (area  f )  es  el  årea  de  la  figura  f .  Por  ejemplo. 


area  (Circulo  1) 
area  (Circulo  2) 
area  (Reet  2  5) 
area  (cuadrado  3) 


3.1415927 
12.566371 
10.0 
^  9.0 
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area  : :  Figura  ->  Float 
area  (Circulo  r)  =  pi*r~2 
area  (Reet  x  y)  =  x*y 


Definicion  de  tipos  con  paråmetros 

■  Los  tipos  definidos  pueden  tener  paråmetros. 

■  Ejemplo  de  tipo  con  parametre 
_  Prelude 

data  Maybe  a  =  Nothing  I  Just  a 


■  (divisionSegura  m  n)  es  la  division  de  m  entre  n  si  n  no  es  cero  y  nada  en  caso 
contrario.  Por  ejemplo, 

divisionSegura  6  3  ^  Just  2 
divisionSegura  6  0  ^  Nothing 


divisionSegura  : :  Int  ->  Int  ->  Maybe  Int 
divisionSegura  _  0  =  Nothing 
divisionSegura  m  n  =  Just  (m  cdiv£  n) 


■  (headSegura  xs)  es  la  cabeza  de  xs  si  xs  es  no  vada  y  nada  en  caso  contrario.  Por 
ejemplo, 

headSegura  [2,3,5]  Just  2 

headSegura  []  Nothing 


headSegura  : :  [a]  ->  Maybe  a 
headSegura  []  =  Nothing 
headSegura  xs  =  Just  (head  xs) 


9.3.  Definicion  de  tipos  recursivos 

Definicion  de  tipos  recursivos:  Los  naturales 

■  Los  tipos  definidos  con  data  pueden  ser  recursivos. 

■  Los  naturales  se  construyen  con  el  cero  y  la  funcion  sucesor. 
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data  Nat  =  Cero  I  Suc  Nat 
deriving  Show 


■  Tipos  de  los  constructores: 

*Main>  :type  Cero 
Cero  : :  Nat 
*Main>  :type  Suc 
Suc  : :  Nat  ->  Nat 

■  Ejemplos  de  naturales: 

Cero 

Suc  Cero 
Suc  (Suc  Cero) 

Suc  (Suc  (Suc  Cero)) 

Definiciones  con  tipos  recursivos 

■  (nat2int  n)  es  el  numero  entero  correspondiente  al  numero  natural  n.  Por  ejem- 
plo, 

Inat2int  (Suc  (Suc  (Suc  Cero)))  3 


nat2int  : :  Nat  ->  Int 

nat2int  Cero  =  0 

nat2int  (Suc  n)  =  1  +  nat2int  n 


■  (int2nat  n)  es  el  numero  natural  correspondiente  al  numero  entero  n.  Por  ejem- 
plo, 

I int2nat  3  Suc  (Suc  (Suc  Cero)) 


int2nat  : :  Int  ->  Nat 

int2nat  0  =  Cero 

int2nat  (n+1)  =  Suc  (int2nat  n) 


■  (suma  m  n)  es  la  suma  de  los  numero  naturales  m  y  n.  Por  ejemplo, 

*Main>  suma  (Suc  (Suc  Cero))  (Suc  Cero) 

Suc  (Suc  (Suc  Cero)) 
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suma 

:  :  Mat 

-> 

Nat  ->  Mat 

suma 

Cero 

n 

=  n 

suma 

(Suc  m) 

n 

=  Suc  (suma  m  n) 

■  Ejemplo  de  cålculo: 

suma  (Suc  (Suc  Cero))  (Suc  Cero) 

=  Suc  (suma  (Suc  Cero)  (Suc  Cero)) 

=  Suc  (Suc  (suma  Cero  (Suc  Cero))) 

=  Suc  (Suc  (Suc  Cero)) 

Tipo  recursivo  con  paråmetro:  Las  listas 

■  Definicon  del  tipo  lista: 

data  Lista  a  =  Mil  I  Cons  a  (Lista  a) 


■  (longitud  xs)  es  la  longitud  de  la  lista  xs.  Por  ejemplo, 
[longitud  (Cons  2  (Cons  3  (Cons  5  Mil)))  3 


longitud  : :  Lista  a  ->  Int 

longitud  Nil  =  0 

longitud  (Cons  _  xs)  =  1  +  longitud  xs 


Definicion  de  tipos  recursivos:  Los  årboles  binarios 

■  Ejemplo  de  årbol  binario: 

5 

/  \ 

/  \ 

3  7 

/  \  /  \ 

1  4  6  9 

■  Definicion  del  tipo  de  årboles  binarios: 


data  Arbol  =  Hoja  Int  I  Modo  Årbol  Int  Arbol 


Representacion  del  ejemplo 
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ejArbol  =  Modo  (Nodo  (Hoja  1)  3  (Hoja  4)) 
5 

(Modo  (Hoja  6)  7  (Hoja  9)) 


Definiciones  sobre  årboles  binarios 

■  (ocurre  m  a)  se  verifica  si  m  ocurre  en  el  årbol  a.  Por  ejemplo, 

ocurre  4  ejArbol  True 

ocurre  10  ejArbol  False 

ocurre  : :  Int  ->  Arbol  ->  Bool 
ocurre  m  (Hoja  n)  =  m  ==  n 

ocurre  m  (Modo  ind)  =  m  ==  n  I  I  ocurre  m  i  I  I  ocurre  m  d 


■  (aplana  a)  es  la  lista  obtenida  aplanando  el  årbol  a.  Por  ejemplo, 
| aplana  ejArbol  ^  [1,3,4,556,7,9] 

aplana  : :  Arbol  ->  [Int] 
aplana  (Hoja  n)  =  [n] 

aplana  (Modo  i  n  d)  =  aplana  i  ++  [n]  ++  aplana  d 


Definiciones  sobre  årboles  binarios 

■  Un  årbol  es  ordenado  si  el  valor  de  cada  nodo  es  mayor  que  los  de  su  subårbol 
izquierdo  y  menor  que  los  de  su  subårbol  derecho. 

■  El  årbol  del  ejemplo  es  ordenado. 

■  (ocurreEnArbolOrdenado  m  a)  se  verifica  si  m  ocurre  en  el  årbol  ordenado  a.  Por 
ejemplo. 


ocurreEnArbolOrdenado  4  ejArbol  True 

ocurreEnArbolOrdenado  10  ejArbol  False 


ocurreEnArbolOrdenado 

: :  Int  ->  Arbol  ->  Bool 

ocurreEnArbolOrdenado 

m  (Hoja  n)  =  m  ==  n 

ocurreEnArbolOrdenado 

m  (Nodo  ind) 

I  m  ==  n 

True 

I  m  <  n 

ocurreEnArbolOrdenado  m  i 

1  otherwise 

ocurreEnArbolOrdenado  m  d 
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Definiciones  de  distintos  tipos  de  årboles 

■  Årboles  binarios  con  valores  en  las  hojas: 


data  Årbol  a  =  Hoja  a  I  Nodo  (Arbol  a)  (Årbol  a) 


■  Årboles  binarios  con  valores  en  los  nodos: 


data  Årbol  a  =  Hoja  I  Modo  (Årbol  a)  a  (Årbol  a) 


■  Årboles  binarios  con  valores  en  las  hojas  y  en  los  nodos: 


9.4.  Sistema  de  decision  de  tautologias 

Sintaxis  de  la  logica  proposicional 

■  Definicion  de  formula  proposicional: 

•  Las  variables  proposicionales  son  formulas. 

•  Si  F  es  una  formula,  entonces  ->F  también  lo  es. 

•  Si  F  y  G  son  formulas,  entonces  F  A  G  y  F  — »  G  también  lo  son. 

■  Tipo  de  dato  de  formulas  proposicionales: 

data  FProp  =  Const  Bool 
I  Var  Char 
I  Neg  FProp 
I  Conj  FProp  FProp 
I  Impl  FProp  FProp 
deriving  Show 


■  Ejemplos  de  formulas  proposicionales: 


1.  AA-A 

2.  (A  AB)  — »  A 
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3.  A  — >•  (A  AB) 

4.  (A  -A  (A  -A  B))  -A  B 


Semåntica  de  la  logica  proposicional 

■  Tablas  de  verdad  de  las  conectivas: 


i 

i 

i 

i  A  j 

i 

T 

F 

T 

T 

T 

T 

F 

T 

T 

F 

F 

F 

F 

T 

F 

T 

F 

F 

F 

T 

■  Tabla  de  verdad  para  (A  — »  B)  V  (B  — »  A): 


A 

B 

(B  —>  A) 

(A^B)V(B^  A) 

T 

T 

F 

F 

T 

T 

F 

F 

F 

F 

F 

T 

T 

F 

T 

F 

F 

T 

T 

T 

■  Las  interpretaciones  son  listas  formadas  por  el  nombre  de  una  variable  proposi¬ 
cional  y  un  valor  de  verdad. 

type  Interpretacion  =  [(Char,  Bool)] 


■  (valor  i  p)  es  el  valor  de  la  formula  p  en  la  interpretacion  i.  Por  ejemplo, 

valor  [( ’ A’ , False) , ( ’B’ ,True)]  p3  ^  True 
valor  E(’A’ ,True) , (’B’ , False)]  p3  False 

valor  : :  Interpretacion  ->  FProp  ->  Bool 

valor  _  (Const  b)  =  b 

valor  i  (Var  x)  =  busca  x  i 

valor  i  (Neg  p)  =  not  (valor  i  p) 

valor  i  (Conj  p  q)  =  valor  i  p  &&  valor  i  q 

valor  i  (Impl  p  q)  =  valor  i  p  <=  valor  i  q 
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■  (busca  c  t)  es  el  valor  del  primer  elemento  de  la  lista  de  asociacion  t  cuya  clave 
es  c.  Por  ejemplo, 

| busca  2  [(l,’a’),(3,’d’),(2,’c’)]  ’c’ 

busca  ::  Eq  c  =>  c  ->  [(c.v)]  ->  v 
busca  c  t  =  head  [v  I  (c’,v)  <-  t,  c  ==  c’] 


■  (variables  p)  es  la  lista  de  los  nombres  de  las  variables  de  p. 
(variables  p3  "AAB" 


variables  : :  FProp  ->  [Char] 

variables  (Const  _)  =  [] 

variables  (Var  x)  =  [x] 

variables  (Neg  p)  =  variables  p 

variables  (Conj  p  q)  =  variables  p  ++  variables  q 

variables  (Impl  p  q)  =  variables  p  ++  variables  q 


■  (interpretacionesVar  n)  es  la  lista  de  las  interpretaciones  con  n  variables.  Por 
ejemplo, 

*Main>  interpretacionesVar  2 
[[False , False] , 

[False .True]  , 

[True , False]  , 

[True , True]  ] 


interpretacionesVar  ::  Int  ->  [[Bool]] 
interpretacionesVar  0  =  [[]] 

interpretacionesVar  (n+1)  = 

map  (False:)  bss  ++  map  (True:)  bss 
where  bss  =  interpretacionesVar  n 


■  (interpretaciones  p)  es  la  lista  de  las  interpretaciones  de  la  formula  p.  Por  ejem¬ 
plo, 

*Main>  interpretaciones  p3 
[[(’A’ .False) .( ’B’ .False)]  , 

[(’A’ .False) , (’B’ .True)] , 

[(’A’ .True) , (’B’ .False)] , 

[  ( ’ A ’ , True) , ( ’ B ’ , True)  ]  ] 
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interpretaciones  : :  FProp  ->  [Interpretacion] 
interpretaciones  p  = 

[zip  vs  i  I  i  <-  interpretacionesVar  (length  vs)] 
where  vs  =  nub  (variables  p) 


Decision  de  tautologia 

■  (esTautologia  p)  se  verifica  si  la  formula  p  es  una  tautologia.  Por  ejemplo, 

esTautologia  pi  False 

esTautologia  p2  True 

esTautologia  p3  False 

esTautologia  p4  True 


esTautologia  : :  FProp  ->  Bool 
esTautologia  p  = 

and  [valor  i  p  I  i  <-  interpretaciones  p] 


9.5.  Måquina  abstracta  de  cålculo  aritmético 

Evaluacion  de  expresiones  aritméticas 

■  Una  expresion  aritmética  es  un  numero  entero  o  la  suma  de  dos  expresiones. 


data  Expr  =  Num  Int  I  Suma  Expr  Expr 


■  (valorEA  x)  es  el  valor  de  la  expresion  aritmética  x. 

I valorEA  (Suma  (Suma  (Num  2)  (Num  3))  (Num  4))  9 


valorEA 

: :  Expr 

-> 

Int 

valorEA 

(Num  n) 

=  n 

valorEA 

(Suma  x 

y) 

=  valorEA  x  +  valorEA  y 

Cålculo: 
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valorEA  (Suma  (Suma  (Num  2)  (Num  3))  (Num  4)) 

=  (valorEA  (Suma  (Num  2)  (Num  3)))  +  (valorEA  (Num  4)) 

=  (valorEA  (Suma  (Num  2)  (Num  3)))  +  4 

=  (valorEA  (Num  2)  +  (valorEA  (Num  3)))  +4 

=  (2  +  3)  +  4 
=  9 

Måquina  de  cålculo  aritmético 

■  La  pila  de  control  de  la  måquina  abstracta  es  una  lista  de  operaciones. 
type  PControl  =  [Op] 


■  Las  operaciones  son  meter  una  expresion  en  la  pila  o  sumar  un  numero  con  el 
primero  de  la  pila. 

data  Op  =  METE  Expr  |  SUMA  Int 


■  (eval  x  p)  evalua  la  expresion  x  con  la  pila  de  control  p.  Por  ejemplo, 

eval  (Suma  (Suma  (Num  2)  (Num  3))  (Num  4))  []  ^  9 

eval  (Suma  (Num  2)  (Num  3))  [METE  (Num  4)]  ^9 

eval  (Num  3)  [SUMA  2,  METE  (Num  4)]  ^9 

eval  (Num  4)  [SUMA  5]  ^>9 


eval  : :  Expr  ->  PControl  ->  Int 

eval  (Num  n)  p  =  ejec  p  n 

eval  (Suma  x  y)  p  =  eval  x  (METE  y  :  p) 


■  (ejec  p  n)  ejecuta  la  lista  de  control  p  sobre  el  entero  n.  Por  ejemplo, 
I ejec  [METE  (Num  3),  METE  (Num  4)]  2  9 


ejec 

[SUMA  2,  METE 

(Num  4)]  3 

9 

ejec 

[METE  (Num  4)] 

5 

9 

ejec 

[SUMA  5] 

4 

9 

ejec 

[] 

9 

9 

ejec 

: :  PControl  -> 

Int  ->  Int 

ejec 

[]  n 

=  n 

ejec 

(METE  y  :  p)  n 

=  eval  y  (SUMA  n 

:  P) 

ejec 

(SUMA  n  :  p)  m 

=  ejec  p  (n+m) 
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■  (evalua  e)  evalua  la  expresion  aritmética  e  con  la  måquina  abstracta.  Por  ejem- 
plo, 

| evalua  (Suma  (Suma  (Wum  2)  (Num  3))  (Wum  4))  ^  9 

evalua  : :  Expr  ->  Int 
evalua  e  =  eval  e  [] 


■  Evaluacion: 

eval  (Suma  (Suma  (Num  2)  (Num  3))  (Num  4))  [] 
=  eval  (Suma  (Num  2)  (Num  3))  [METE  (Num  4)] 

=  eval  (Num  2)  [METE  (Num  3),  METE  (Num  4)] 

=  ejec  [METE  (Num  3),  METE  (Num  4)]  2 
=  eval  (Num  3)  [SUMÅ  2,  METE  (Num  4)] 

=  ejec  [SUMÅ  2,  METE  (Num  4)]  3 
=  ejec  [METE  (Num  4)]  (2+3) 

=  ejec  [METE  (Num  4)]  5 
=  eval  (Num  4)  [SUMÅ  5] 

=  ejec  [SUMÅ  5]  4 

=  ejec  []  (5+4) 

=  ejec  []  9 

=  9 


9.6.  Declaraciones  de  clases  y  de  instancias 


Declaraciones  de  clases 

■  Las  clases  se  declaran  mediante  el  mecanismo  class. 

■  Ejemplo  de  declaracion  de  clases: 


Prelude 


class  Eq  a  where 

(==),  (/=)  :: 


->  a  ->  Bool 


--  Minimal  complete  definition:  (==)  or  (/=) 
x  ==  y  =  not  (x/=y) 
x  /=  y  =  not  (x==y) 
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Declaraciones  de  instancias 

■  Las  instancias  se  declaran  mediante  el  mecanismo  instance. 

■  Ejemplo  de  declaracion  de  instancia: 

_  Prelude  _ 

instance  Eq  Bool  where 
False  ==  False  =  True 

True  ==  True  =  True 

==  _  =  False 


Extensiones  de  clases 

■  Las  clases  pueden  extenderse  mediante  el  mecanismo  class. 

■  Ejemplo  de  extension  de  clases: 

_  Prelude  _ 

class  (Eq  a)  =>  Ord  a  where 

compare  : :  a  ->  a  ->  Ordering 

(<)  ,  (<=)  ,  (>=) ,  (>)  :  :  a  ->  a  ->  Bool 

max,  min  : :  a  ->  a  ->  a 

--  Minimal  complete  definition:  (<=)  or  compare 
--  using  compare  can  be  more  efficient  for  complex  types 


compare  x 

ii 

ii 

X 

= 

EQ 

1  x<=y 

= 

LT 

1  otherwise 

= 

GT 

ii 

V 

X 

= 

compare 

X 

y 

/=  GT 

V 

X! 

= 

compare 

X 

y 

==  LT 

* 

V 

II 

'-C 

= 

compare 

X 

y 

/=  LT 

A 

X! 

= 

compare 

X 

y 

==  GT 

max  x  y 

ii 

V 

= 

y 

1  otherwise 

= 

X 

min  x  y 

ii 

V 

= 

X 

1  otherwise 

= 

y 
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Instancias  de  clases  extendidas 

■  Las  instancias  de  las  clases  extendidas  pueden  declararse  mediante  el  mecanismo 
instance. 

■  Ejemplo  de  declaracion  de  instancia: 

_  Prelude  _ 

instance  Ord  Bool  where 

False  <=  _  =  True 

True  <=  True  =  True 

True  <=  False  =  False 


Clases  derivadas 


■  Al  definir  un  nuevo  tipo  con  data  puede  declarse  como  instancia  de  clases  me¬ 
diante  el  mecanismo  deriving. 

■  Ejemplo  de  clases  derivadas: 

_  Prelude  _ 

data  Bool  =  False  I  True 

deriving  (Eq,  Ord,  Read,  Show) 


■  Comprobacion: 

False  ==  False  True 

False  <  True  True 

show  False  "False" 

read  "False"  : :  Bool  False 

■  Para  derivar  un  tipo  cuyos  constructores  tienen  argumentos  como  derivado,  los 
tipos  de  los  argumentos  tienen  que  ser  instancias  de  las  clases  derivadas. 

■  Ejemplo: 

data  Figura  =  Circulo  Float  I  Reet  Float  Float 
deriving  (Eq,  Ord,  Show) 


se  cumple  que  Float  es  instancia  de  Eq,  Ord  y  Show. 
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*Main>  :info  Float 

instance  Eq  Float 
instance  Ord  Float 
instance  Show  Float 
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Tema  10 


Evaluacion  perezosa 


10.1.  Estrategias  de  evaluacion 

Estrategias  de  evaluacion 


■  Para  los  ejemplos  se  considera  la  funcion 


■  Evaluacion  mediante  paso  de  paråmetros  por  valor  (o  por  mås  internos): 

mult  (l+2,2+3) 

=  mult  (3,5)  [por  def.  de  +] 

=  3*5  [por  def.  de  mult] 

=  15  [por  def.  de  *] 

■  Evaluacion  mediante  paso  de  paråmetros  por  nombre  (o  por  mås  externos): 

mult  (l+2,2+3) 

=  (l+2)*(3+5)  [por  def.  de  mult] 

=  3*5  [por  def.  de  +] 

=  15  [por  def.  de  *] 

Evaluacion  con  lambda  expresiones 


■  Se  considera  la  funcion 
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■  Evaluacion: 


mult' 

(1+2)  (2+3) 

=  mult' 

3  (2+3) 

[por 

def. 

de 

+] 

=  (Ay- 

+  3*y)  (2+3) 

[por 

def. 

de 

mult'] 

=  (Ay- 

+  3*y)  5 

[por 

def. 

de 

+] 

=  3*5 

[por 

def. 

de 

+] 

=  15 

[por 

def. 

de 

*] 

10.2.  Terminacion 

Procesamiento  con  el  infinito 

■  Definicion  de  infinito 

inf  : :  Int 
inf  =  1  +  inf 


■  Evaluacion  de  infinito  en  Haskell: 

*Main>  inf 

C-c  C-cInterrupted. 

■  Evaluacion  de  infinito: 


inf 

=  1  +  inf 

[por  def.  inf] 

=  1  +  (1  +  inf) 

[por  def.  inf] 

=  1  +  (1  +  (1  +  inf)) 

[por  def.  inf] 

Procesamiento  con  el  infinito 

■  Evaluacion  mediante  paso  de  paråmetros  por  valor: 
fst  (0,inf) 

=  fst  (0,1  +  inf)  [por  def.  inf] 

=  fst  (0,1  +  (1  +  inf))  [por  def.  inf] 

=  fst  (0,1  +  (!  +  (!  +  inf)))  [por  def.  inf] 


■  Evaluacion  mediante  paso  de  paråmetros  por  nombre: 

fst  (0,inf) 

=  0  [por  def.  fst] 

■  Evaluacion  Haskell  con  infinito: 
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*Main>  fst  (0,inf) 
0 


10.3.  Numero  de  reducciones 

Numero  de  reducciones  segun  las  estrategias 

■  Para  los  ejemplos  se  considera  la  funcion 

cuadrado  : :  Int  ->  Int 
cuadrado  n  =  n  *  n 


■  Evaluacion  mediante 

paso  de  parametres  por  valor: 

cuadrado  (1+2) 

=  cuadrado  3 

[por  def.  +] 

=  3*3 

[por  def.  cuadrado] 

=  9 

[por  def.  de  *] 

■  Evaluacion  mediante 

paso  de  parametres  por  nombre 

cuadrado  (1+2) 

=  (l+2)*(l+2) 

[por  def.  cuadrado] 

=  3*(l+2) 

[por  def.  de  +] 

=  3*3 

[por  def.  de  +] 

=  9 

[por  def.  de  *] 

Evaluacion  perezosa  e  impaciente 

■  En  la  evaluacion  mediante  paso  de  parametres  por  nombre  los  argumentos  pue- 
den  evaluarse  mås  veces  que  en  el  paso  por  valor. 

■  Se  puede  usar  punteros  para  compartir  valores  de  expresiones. 

■  La  evaluacion  mediante  paso  de  parametres  por  nombre  usando  punteros  para 
compartir  valores  de  expresiones  se  llama  evaluacion  perezosa. 

■  La  evaluacion  mediante  paso  de  parametres  por  valor  se  llama  evaluacion  impa¬ 
ciente. 

■  Evaluacion  perezosa  del  ejemplo  anterior: 

cuadrado  (1+2) 

=  x*x  con  x  =  1+2  [por  def.  cuadrado] 

=  3*3  [por  def.  de  +] 

=  9  [por  def.  de  *] 
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■  Haskell  usa  evaluacion  perezosa. 


10.4.  Estructuras  infinitas 

Programacion  con  estructuras  infinitas 

■  unos  es  una  lista  infinita  de  unos. 

unos  : :  [Int] 
unos  =  1  :  unos 


■  Evaluacion: 
unos 

=  1  :  unos  [por  def.  unos] 

=  1  :  (1  :  unos)  [por  def.  unos] 

=  1  :  (1  :  (1  :  unos))  [por  def.  unos] 


■  Evaluacion  en  Haskell: 


*Main>  unos 


n  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 


Evaluacion  con  estructuras  infinitas 

■  Evaluacion  impaciente: 

head  unos 
=  head  (1  :  unos) 

=  head  (1  :  (1  :  unos)) 

=  head  (1  :  (1  :  (1  :  unos))) 

■  Evaluacion  perezosa: 

head  unos 
=  head  (1  :  unos)  [por  def.  unos] 
=  1  [por  def.  head] 

■  Evaluacion  Haskell: 


[por  def.  unos] 
[por  def.  unos] 
[por  def.  unos] 


*Main>  head  unos 
1 
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10.5.  Programacion  modular 

Programacion  modular 

■  La  evaluacion  perezosa  permite  separar  el  control  de  los  datos. 

■  Para  los  ejemplos  se  considera  la  funcion 

_  Prelude  _ 

take  : :  Int  ->  [a]  ->  [a] 

take  n  _  I  n  <=  0  =  [] 

take  _  []  =  [] 

take  n  (x:xs)  =  x  :  take  (n-1)  xs 


Ejemplo  de  separacion  del  control  (tomar  2  elementos)  de  los  datos  (una  lista  infi- 
nita  de  unos): 


take  2  unos 
take  2  (1  :  unos) 

1  :  (take  1  unos) 

1  :  (take  1  (1  :  unos)) 
1  :  (1  :  (take  0  unos)) 
1  :  (1  :  []) 

[1/1] 


[por  def.  unos] 

[por  def.  take] 

[por  def.  unos] 

[por  def.  take] 

[por  def.  take] 

[por  notacion  de  listas] 


Terminacion  de  evaluaciones  con  estructuras  infinitas 

■  Ejemplo  de  no  terminacion: 

*Main>  [1 .  .] 

[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20, . . . 

■  Ejemplo  de  terminacion: 

*Main>  take  3  [1 . .  ] 

[1,2,3] 

■  Ejemplo  de  no  terminacion: 

*Main>  filter  (<=3)  [1..] 

[1,2,3  C-c  C-c  Interrupted. 

■  Ejemplo  de  no  terminacion: 

*Main>  takeWhile  (<=3)  [1..] 

[1,2,3] 
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La  criba  de  Erastotenes 

■  La  criba  de  Erastotenes 

2  3  4  5  6  7  8  9  10  11  12  13  14  15 

3  5  7  9  11  13  15 

57  11  13 

7  11  13 

11  13 

13 


■  Definicion 


■  Evaluacion: 

| take  15  primos  [2,3,5,7,11,13,17,19,23,29,31,37,41,43,47] 

■  Cålculo: 

primos 

=  criba  [2. .] 

=  criba  (2  :  [3 . .  ] ) 

=  2  :  (criba  [x  |  x  <-  [3..],  x  £modc  2  /=  0]) 

=  2  :  (criba  (3  :  [x  |  x  <-  [4..],  x  £mod£  2  /=  0])) 

=2:3:  (criba  [x  |  x  <-  [4..],  x  £mod£  2  /=  0, 

x  £mod£  3  /=  0]) 

=2:3:  (criba  (5  :  [x  |  x  <-  [6..],  x  £mod£  2  /=  0, 

x  £mod£  3  /=  0])) 

=2:3:5:  (criba  ( [x  |  x  <-  [6..],  x  £mod£  2  /=  0, 

x  £mod£  3  /=  0, 
x  £mod£  5  /=  0])) 


10.6.  Aplicacion  estricta 

Ejemplo  de  programa  sin  aplicacion  estricta 
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■  (sumaNE  xs)  es  la  suma  de  los  numeros  de  xs.  Por  ejemplo, 
I sumaNE  [2,3,5]  10 


■  Evaluacion:  : 

sumaNE  [2,3,5] 

=  sumaNE'  0  [2,3,5]  [por  def.  sumaNE] 

=  sumaNE'  (0+2)  [3,5]  [por  def.  sumaNE'] 

=  sumaNE'  ((0+2)+3)  [5]  [por  def.  sumaNE'] 

=  sumaNE'  (((0+2)+3)+5)  []  [por  def.  sumaNE'] 

=  ((0+2)+3)+5  [por  def.  sumaNE'] 

=  (2+3)+5  [por  def.  +] 

=  5+5  [por  def.  +] 

=  10  [por  def.  +] 

Ejemplo  de  programa  con  aplicacion  estricta 


■  (sumaE  xs)  es  la  suma  de  los  numeros  de  xs.  Por  ejemplo, 
I sumaE  [2,3,5]  10 


Evaluacion:  : 


116 


sumaE  [2,3,5] 
sumaE'  O  [2,3,5] 
(sumaE'  $!  (0+2))  [3,5] 
sumaE'  2  [3,5] 
(sumaE'  $!  (2+3))  [5] 
sumaE'  5  [5] 

(sumaE'  $!  (5+5))  [] 
sumaE'  10  [] 

10 


[por  def.  sumaE] 

[por  def.  sumaE'] 
[por  aplicacion  de  $!] 
[por  def.  sumaE'] 
[por  aplicacion  de  $!] 
[por  def.  sumaE'] 
[por  aplicacion  de  $!] 
[por  def.  sumaE'] 


Comparacion  de  consumo  de  memoria 

■  Comparacion  de  consumo  de  memoria: 

*Main>  sumaNE  [1.. 1000000] 

***  Exception:  stack  overflow 

*Main>  sumaE  [1 . . 1000000] 

1784293664 

*Main>  :set  +s 

*Main>  sumaE  [1 . . 1000000] 

1784293664 

(2.16  secs,  145435772  bytes) 


Plegado  estricto 

■  Version  estricta  de  f  oldl  en  el  Data .  List 


foldl’  ::  (a  ->  b  ->  a)  ->  a  ->  [b]  ->  a 
foldl’  f  a  []  =  a 

foldl’  f  a  (x:xs)  =  (foldl’  f  $ !  f  a  x)  xs 


■  Comparacion  de  plegado  y  plegado  estricto:s 

*Main>  foldl  (+)  0  [2,3,5] 

10 

*Main>  foldl’  (+)  0  [2,3,5] 

10 

*Main>  foldl  (+)  0  [1.. 1000000] 

***  Exception:  stack  overflow 
*Main>  foldl’  (+)  0  [1.. 1000000] 
500000500000 


Tema  10.  Evaluacion  perezosa 
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Tema  11 


Aplicaciones  de  programacion  funcional 

11.1.  El  juego  de  cif  ras  y  letras 

11.1.1.  Introduccion 

Presentacion  del  juego 

■  Cifras  y  letras  es  un  programa  de  Canal  Sur  que  incluye  un  juego  numérico  cuya 
esencia  es  la  siguiente: 

Dada  una  sucesion  de  numeros  naturales  y  un  numero  objetivo,  intentar 
construir  una  expresion  cuyo  valor  es  el  objetivo  combinando  los  numeros 
de  la  sucesion  usando  suma,  resta,  multiplicacion,  division  y  paréntesis.  Cada 
numero  de  la  sucesion  puede  usarse  como  måximo  una  vez.  Ademås,  todos 
los  numeros,  incluyendo  los  resultados  intermedios  tienen  que  ser  enteros 
positivos  (1,2,3,. . . ). 

■  Ejemplos 

•  Dada  la  sucesion  1, 3, 7, 10, 25, 50  y  el  objetivo  765,  una  solucion  es  (l+50)*(25— 10). 

•  Para  el  problema  anterior,  existen  780  soluciones. 

•  Con  la  sucesion  anterior  y  el  objetivo  831,  no  hay  solucion. 

Formalizacion  del  problema:  Operaciones 

■  Las  operaciones  son  sumar,  restar,  multiplicar  o  dividir. 
data  Op  =  Sum  I  Res  I  Mul  I  Div 

instance  Show  Op  where 
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show  Sum  =  "+" 
show  Res  = 
show  Mul  =  "*" 
show  Div  =  "/" 


■  ops  es  la  lista  de  las  operaciones. 
ops  : :  [Op] 

ops  =  [Sum, Res, Mul ,Div] 


Operaciones  vålidas 

■  (valida  o  x  y)  se  verifica  si  la  operacion  o  aplicada  a  los  numeros  natur  ales  x  e 
y  da  un  numero  natural.  Por  ejemplo. 


valida 

Res  5 

3 

True 

valida 

Res  3 

5 

False 

valida 

Div  6 

3 

True 

valida 

Div  6 

4 

'X^ 

False 

valida 

::  Op 

-> 

Int 

->  Int  ->  Bool 

valida 

Sum  _ 

_ 

=  True 

valida 

Res  x 

y 

=  X 

>  y 

valida 

Mul  _ 

=  True 

valida 

Div  x 

y 

=  y 

/=  0  &&  x  £mod£  y 

Aplicacion  de  operaciones 

■  (aplica  o  x  y)  es  el  resultado  de  aplicar  la  operacion  o  a  los  numeros  naturales 
x  e  y.  Por  ejemplo, 

aplica  Sum  23^5 
aplica  Div  63^2 


aplica  : :  Op  ->  Int  ->  Int  ->  Int 
aplica  Sum  x  y  =  x  +  y 

aplica  Res  x  y  =  x  -  y 

aplica  Mul  x  y  =  x  *  y 

aplica  Div  x  y  =  x  cdiv£  y 


Tema  1 1 .  Aplicaciones  de  programacion  funcional 
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Expresiones 


■  Las  expresiones  son  numeros  enteros  o  aplicaciones  de  operaciones  a  dos  expre¬ 
siones. 


data  Expr  =  Num  Int 

1  Apl  Op  Expr  Expr 

instance  Show  Expr 

where 

show  (Num  n) 

=  show  n 

show  (Apl  o  i  d) 

=  parentesis  i  ++  show  o  ++  parentesis  d 

where 

parentesis  (Num  n)  =  show  n 

parentesis  e  =  "("  ++  show  e  ++  ")" 

■  Ejemplo:  Expresion  correspondiente  a  (l+50)*(25  — 10) 

ejExpr  : :  Expr 
ejExpr  =  Apl  Mul  el  e2 

where  el  =  Apl  Sum  (Num  1)  (Num  50) 
e2  =  Apl  Res  (Num  25)  (Num  10) 


Numeros  de  una  expresion 

■  (numeros  e)  es  la  lista  de  los  numeros  que  aparecen  en  la  expresion  e.  Por  ejemplo, 

*Main>  numeros  (Apl  Mul  (Apl  Sum  (Num  2)  (Num  3))  (Num  7)) 

[2,3,7] 


numeros 

: :  Expr  -> 

[Int] 

numeros 

(Num  n) 

=  [n] 

numeros 

(Apl  1  r) 

=  numeros  1  ++  numeros  r 

Valor  de  una  expresion 

■  (valor  e)  es  la  lista  formada  por  el  valor  de  la  expresion  e  si  todas  las  operaciones 
para  calcular  el  valor  de  e  son  numeros  positivos  y  la  lista  vacia  en  caso  contrario. 
Por  ejemplo, 

valor  (Apl  Mul  (Apl  Sum  (Num  2)  (Num  3))  (Num  7))  ^  [35] 

valor  (Apl  Res  (Apl  Sum  (Num  2)  (Num  3))  (Num  7))  [] 

valor  (Apl  Sum  (Apl  Res  (Num  2)  (Num  3))  (Num  7))  [] 
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valor  : :  Expr  ->  [Int] 

valor  (Num  n)  =  [n  |  n  >  0] 

valor  (Apl  o  i  d)  =  [aplica  o  x  y  I  x  <-  valor  i 

,  y  <-  valor  d 
,  valida  o  x  y] 


Funciones  combinatorias:  Sublistas 


(sublistas  xs)  es  la  lista  de  las  sublistas  de  xs.  Por  ejemplo. 


*Main>  sublistas  "bc" 

[" " , "c" , "b" , "bc"] 

*Main>  sublistas  "abc" 

["" , "c" , "b" , "bc" , "a" , "ac" , "ab" , "abc"] 


sublistas  ::  [a]  ->  [[a]] 
sublistas  []  =  [[]] 

sublistas  (x:xs)  =  yss  ++  map  (x : )  yss 
where  yss  =  sublistas  xs 


Funciones  combinatoria:  Intercalado 

■  (intercala  x  ys)  es  la  lista  de  las  listas  obtenidas  intercalando  x  entre  los  ele¬ 
mentos  de  ys.  Por  ejemplo, 

intercala  ’x’  "bc"  ["xbc" , "bxc" , "bcx"] 

intercala  ’x’  "abc"  ["xabc" , "axbc" , "abxc" , "abcx"] 


intercala  : :  a  ->  [a]  ->  [[a]] 
intercala  x  []  =  [[x]] 

intercala  x  (y:ys)  = 

(x:y:ys)  :  map  (y:)  (intercala  x  ys) 


Funciones  combinatoria:  Permutaciones 

■  (permutaciones  xs)  es  la  lista  de  las  permutaciones  de  xs.  Por  ejemplo, 

*Main>  permutaciones  "bc" 

["bc" ,"cb"] 

*Main>  permutaciones  "abc" 

["abc" , "bac" , "bca" , "acb" , "cab" , "cba"] 


Tema  1 1 .  Aplicaciones  de  programacion  funcional 
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permutaciones  ::  [a]  ->  [[a]] 
permutaciones  []  =  [[]] 

permutaciones  (x:xs)  = 

concat  (map  (intercala  x)  (permutaciones  xs)) 


Funciones  combinatoria:  Elecciones 

■  (elecciones  xs)  es  la  lista  formada  por  todas  las  sublistas  de  xs  en  cualquier 
orden.  Por  ejemplo. 


*Main>  elecciones  "abc' 

[' 

"abc" , "bac" , "bca" , "acb" , "cab" , "cba"] 


elecciones  ::  [a]  ->  [[a]] 
elecciones  xs  = 

concat  (map  permutaciones  (sublistas  xs)) 


Reconocimiento  de  las  soluciones 

■  (solucion  e  ns  n)  se  verifica  si  la  expresion  e  es  una  solucion  para  la  sucesion 
ns  y  objetivo  n;  es  decir.  si  los  numeros  de  e  es  una  posible  eleccion  de  ns  y  el  valor 
de  e  es  n.  Por  ejemplo, 

[solucion  ejExpr  [1,3,7,10,25,50]  765  =>  True 

solucion  : :  Expr  ->  [Int]  ->  Int  ->  Bool 
solucion  e  ns  n  = 

elem  (numeros  e)  (elecciones  ns)  &&  valor  e  ==  [n] 


11.1.2.  Busqueda  de  la  solucion  por  fuerza  bruta 

Divisiones  de  una  lista 

■  (divisiones  xs)  es  la  lista  de  las  divisiones  de  xs  en  dos  listas  no  vacias.  Por 
ejemplo, 

*Main>  divisiones  "bed" 

[("b" , "cd") , ("bc" , "d")] 

*Main>  divisiones  "abed" 

[("a" , "bed") , ("ab", "cd") , ("abc","d")] 
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divisiones  ::  [a]  ->  [([a],[a])] 
divisiones  []  =  [] 

divisiones  [_]  =  [] 

divisiones  (x:xs)  = 

(Ex],xs)  :  [(x:is,ds)  I  (is,ds)  <-  divisiones  xs] 


Expresiones  construibles 

■  (expresiones  ns)  es  la  lista  de  todas  las  expresiones  construibles  a  partir  de  la 
lista  de  numeros  ns.  Por  ejemplo, 

*Main>  expresiones  [2,3,5] 

[2+ (3+5) ,2-(3+5) ,2*(3+5) ,2/ (3+5) ,2+(3-5) ,2-(3-5) , 

2*(3-5) ,2/(3-5) ,2+(3*5) ,2-(3*5) ,2*(3*5) ,2/ (3*5) , 

2+(3/5) ,2-(3/5) ,2*(3/5) ,2/ (3/5) , (2+3)+5 , (2+3) -5 , 


expresiones 

[Int]  ->  [Expr] 

expresiones 

[] 

=  [] 

expresiones 

[n] 

=  [Num  n] 

expresiones 

ns 

=  [e  1  (is ,ds) 

<-  divisiones  ns 

,  i 

<-  expresiones  is 

,  d 

<-  expresiones  ds 

,  e 

<-  combina  i  d] 

Combinacion  de  expresiones 

■  (combina  el  e2)  es  la  lista  de  las  expresiones  obtenidas  combinando  las  expre¬ 
siones  el  y  e2  con  una  operacion.  Por  ejemplo, 

*Main>  combina  (Num  2)  (Wum  3) 

[2+3,2-3,2*3,2/3] 


combina  : :  Expr  ->  Expr  ->  [Expr] 
combina  el  e2  =  [Apl  o  el  e2  I  o  <-  ops] 


Tema  1 1 .  Aplicaciones  de  programacion  funcional 
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Busqueda  de  las  soluciones 

■  (soluciones  ns  n)  es  la  lista  de  las  soluciones  para  la  sucesion  ns  y  objetivo  n 
calculadas  por  fuerza  bruta.  Por  ejemplo, 

*Main>  soluciones  [1,3,7,10,25,50]  765 
[3*((7*(50-10))-25),  ( (7* (50-10) ) -25) *3 ,  ... 

*Main>  length  (soluciones  [1,3,7,10,25,50]  765) 

780 

*Main>  length  (soluciones  [1,3,7,10,25,50]  831) 

0 


soluciones  : :  [Int]  ->  Int  ->  [Expr] 
soluciones  ns  n  =  [e  I  ns’  <-  elecciones  ns 

,  e  <-  expresiones  ns’ 
,  valor  e  ==  [n]] 


Estadfsticas  de  la  busqueda  por  fuerza  bruta 

■  Estadfsticas: 

*Main>  :set  +s 

*Main>  head  (soluciones  [1,3,7,10,25,50]  765) 
3*((7*(50-10))-25) 

(8.47  secs,  400306836  bytes) 

*Main>  length  (soluciones  [1,3,7,10,25,50]  765) 
780 

(997.76  secs,  47074239120  bytes) 

*Main>  length  (soluciones  [1,3,7,10,25,50]  831) 
0 

(1019.13  secs,  47074535420  bytes) 

*Main>  : unset  +s 


11.1.3.  Busqueda  combinando  generacion  y  evaluacion 

Resultados 

■  Resultado  es  el  tipo  de  los  pares  formados  por  expresiones  vålidas  y  su  valor. 
type  Resultado  =  (Expr, Int) 
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■  (result  ado  s  ns)  es  la  lista  de  todos  los  resultados  construibles  a  partir  de  la  lista 
de  numeros  ns.  Por  ejemplo, 

*Main>  resultados  [2,3,5] 

[(2+ (3+5) ,10) ,  (2*(3+5),16),  (2+ (3*5)  ,  17) ,  (2*(3*5) ,30) ,  ( (2+3)+5, 10) , 
( (2+3) *5 , 25) ,  ( (2+3) /5 , 1) ,  ( (2*3)+5 , 11) ,  ((2*3)-5,l),  ( (2*3) *5,30)] 


resultados 

[Int]  -> 

[Resultado] 

resultados 

[] 

=  [] 

resultados 

[n] 

=  [(Mum 

n,n)  |  n 

>  0] 

resultados 

ns 

=  [res  1 

(is,ds) 

<-  divisiones 

ns 

3 

ix 

<-  resultados 

is 

3 

dy 

<-  resultados 

ds 

3 

res 

<-  combina’  ix  dy] 

Combinacion  de  resultados 

■  (combina’  ri  r2)  es  la  lista  de  los  resultados  obtenidos  combinando  los  resulta¬ 
dos  ri  y  r2  con  una  operacion.  Por  ejemplo, 

*Main>  combina’  (Mum  2,2)  (Mum  3,3) 

[(2+3,5), (2*3,6)] 

*Main>  combina’  (Mum  3,3)  (Mum  2,2) 

[(3+2,5), (3-2,1), (3*2,6)] 

*Main>  combina’  (Mum  2,2)  (Mum  6,6) 

[(2+6,8), (2*6,12)] 

*Main>  combina’  (Mum  6,6)  (Mum  2,2) 

[(6+2,8) , (6-2,4) , (6*2,12) , (6/2,3)] 


combina’  : :  Resultado  ->  Resultado  ->  [Resultado] 
combina’  (i,x)  (d,y)  = 

[(Apl  o  i  d,  aplica  o  x  y)  I  o  <-  ops 

,  valida  o  x  y] 


Busqueda  combinando  generacion  y  evaluacion 

■  (soluciones’  ns  n)  es  la  lista  de  las  soluciones  para  la  sucesion  ns  y  objetivo  n 
calculadas  intercalando  generacion  y  evaluacion.  Por  ejemplo. 


Tema  1 1 .  Aplicaciones  de  programacion  funcional 
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*Main>  head  (soluciones’  [1,3,7,10,25,50]  765) 

3* ( (7* (50-10) ) -25) 

*Main>  length  (soluciones’  [1,3,7,10,25,50]  765) 
780 

*Main>  length  (soluciones’  [1,3,7,10,25,50]  831) 
0 


soluciones’  ::  [Int]  ->  Int  ->  [Expr] 
soluciones’  ns  n  =  [e  I  ns’  <-  elecciones  ns 

,  (e,m)  <-  resultados  ns’ 
,  m  ==  n] 


Estadisticas  de  la  busqueda  combinada 

■  Estadisticas: 

*Main>  head  (soluciones’  [1,3,7,10,25,50]  765) 

3*((7*(50-10))-25) 

(0.81  secs,  38804220  bytes) 

*Main>  length  (soluciones’  [1,3,7,10,25,50]  765) 

780 

(60.73  secs,  2932314020  bytes) 

*Main>  length  (soluciones’  [1,3,7,10,25,50]  831) 

0 

(61.68  secs,  2932303088  bytes) 

11.1.4.  Busqueda  mejorada  mediante  propiedades  algebraicas 

Aplicaciones  vålidas 

■  (valida’  o  x  y)  se  verifica  si  la  operacion  o  aplicada  a  los  numeros  naturales  x  e 
y  da  un  numero  natural,  teniendo  en  cuenta  las  siguientes  reducciones  algebraicas 

X  +  y  =  y  +  X 

x  *  y  =  y  *  x 

x  *  1  =  x 

1  *  y  =  y 

x  /  1  =  x 


valida’  : :  Op  ->  Int  ->  Int  ->  Bool 
valida’  Sum  x  y  =  x  <=  y 
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valida’  Res  x  y  =  x  >  y 

valida ’  Mul  x  y  =  x  /=  1  &&  y  /=  1  &&  x  <=  y 

valida’  Div  x  y  =  y  /=  O  &&  y  /=  1  &&  x  £mod£  y  ==  O 


Resultados  vålidos  construibles 

■  (resultados’  ns)  es  la  lista  de  todos  los  resultados  vålidos  construibles  a  partir 
de  la  lista  de  numeros  ns.  Por  ejemplo, 

*Main>  resultados’  [5,3,2] 

[(5- (3-2) ,4) , ((5-3)+2,4) , ((5-3) *2,4) , ((5-3)/2,l)] 


resultados ’ 

[Int]  -> 

[Resultado] 

resultados ’ 

[] 

=  [] 

resultados ’ 

[n] 

=  [(Num 

n,n)  |  n 

>  0] 

resultados ’ 

ns 

=  [res  1 

(is ,ds) 

<-  divisiones  ns 

3 

ix 

<-  resultados’  is 

3 

dy 

<-  resultados’  ds 

3 

res 

<-  combina’ ’  ix  dy] 

Combinacion  de  resultados  vålidos 

■  (combina”  ri  r2)  es  la  lista  de  los  resultados  vålidos  obtenidos  combinando  los 
resultados  ri  y  r2  con  una  operacion.  Por  ejemplo. 


combina’ ’ 

(Num  2,2) 

(Num  3,3) 

=> 

[(2+3,5), (2*3,6)] 

combina’ ’ 

(Num  3,3) 

(Num  2,2) 

=> 

[(3-2,1)] 

combina’ ’ 

(Num  2,2) 

(Num  6,6) 

=> 

[(2+6,8), (2*6,12)] 

combina’ ’ 

(Num  6,6) 

(Num  2,2) 

=> 

[(6-2,4), (6/2,3)] 

combina’’  ::  Resultado  ->  Resultado  ->  [Resultado] 
combina’’  (i,x)  (d,y)  = 

[(Apl  o  i  d,  aplica  o  x  y)  I  o  <-  ops 

,  valida’  o  x  y] 


Busqueda  mejorada  mediante  propiedades  algebraicas 

■  (soluciones”  ns  n)  es  la  lista  de  las  soluciones  para  la  sucesion  ns  y  objetivo  n 
calculadas  intercalando  generacion  y  evaluacion  y  usando  las  mejoras  aritméticas. 
Por  ejemplo. 


Tema  1 1 .  Aplicaciones  de  programacion  funcional 
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*Main>  head  (soluciones ’ ’  [1,3,7,10,25,50]  765) 

3* ( (7* (50-10) ) -25) 

*Main>  length  (soluciones’’  [1,3,7,10,25,50]  765) 
49 

*Main>  length  (soluciones’’  [1,3,7,10,25,50]  831) 
0 


Estadisticas  de  la  busqueda  mejorada 

■  Estadisticas: 

*Main>  head  (soluciones’’  [1,3,7,10,25,50]  765) 

3*((7*(50-10))-25) 

(0.40  secs,  16435156  bytes) 

*Main>  length  (soluciones’’  [1,3,7,10,25,50]  765) 

49 

(10.30  secs,  460253716  bytes) 

*Main>  length  (soluciones’’  [1,3,7,10,25,50]  831) 

0 

(10.26  secs,  460253908  bytes)§ 

Comparacion  de  las  busquedas 

Comparacion  de  las  busquedad  problema  de  dados  [1,3,7,10,25,50]  obtener  765. 


■  Busqueda  de  la  primera  solucion: 


+- 

— 

-+ 

1 

segs . 

1  bytes 

1 

+ 

-+- 

+ 

-+ 

1  soluciones 

1 

8.47 

1  400.306.836 

1 

1  soluciones’ 

1 

0.81 

I  38.804.220 

1 

1  soluciones’’ 

1 

0.40 

1  16.435.156 

1 

+ 

-+- 

+ 

-+ 
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Comparacion  de  las  busquedas 

■  Busqueda  de  todas  las  soluciones: 

+ - + - + 

I  segs.  I  bytes  I 

+ - + - + - + 

I  soluciones  I  997.76  I  47.074.239.120  I 

I  soluciones’  I  60.73  I  2.932.314.020  I 

I  soluciones”  I  10.30  I  460.253.716  I 
+ - + - + - + 


Comparacion  de  las  busquedas 

Comprobacion  de  que  dados  [1,3,7,10,25,50]  no  puede  obtenerse  831 

+ - + - + 

I  segs.  I  bytes  I 

+ - + - + - + 

I  soluciones  I  1019.13  I  47.074.535.420  I 

I  soluciones’  I  61.68  I  2.932.303.088  I 

I  soluciones”  I  10.26  I  460.253.908  I 
+ - + - + - + 


11.2.  El  problema  de  las  reinas 

El  problema  de  las  N  reinas 

■  Enunciado:  Colocar  N  reinas  en  un  tablero  rectangular  de  dimensiones  N  por  N 
de  forma  que  no  se  encuentren  mås  de  una  en  la  misma  linea:  horizontal,  vertical 
o  diagonal. 

■  El  problema  se  representa  en  el  modulo  Reinas.  Importa  la  diferencia  de  conjuntos 
(\\)  del  modulo  List: 

module  Reinas  where 
import  Data. List  ( (\\) ) 


■  El  tablero  se  representa  por  una  lista  de  numeros  que  indican  las  filas  donde  se 
han  colocado  las  reinas.  Por  ejemplo,  [3 , 5]  indica  que  se  han  colocado  las  reinas 
(1,3)  y  (2,5). 

type  Tablero  =  [Int] 
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■  reinas  n  es  la  lista  de  soluciones  del  problema  de  las  N  reinas.  Por  ejemplo, 
r  e  inas  4  -->  [  [3 , 1 , 4 , 2]  ,  [2, 4,1,3]].  La  primera  solucion  [3 , 1 , 4 , 2]  se  interpreta 
c  omo  _ 


R 

R 

R 

R 

reinas  : : 

Int 

->  [Tablero] 

reinas  n  : 

=  aux 

:  n 

where 

aux 

0  =  [[]] 

aux 

(m+1)  =  [r:rs 

1  rs  <-  aux 

m, 

T — 1 

1 _ 1 

I 

V 

u 

•  n] 

\\  rs) , 

noAtaca  r 

rs 

1] 

■  noAtaca  r  rs  d  se  verifica  si  la  reina  r  no  ataca  a  niguna  de  las  de  la  lista  rs  donde 
la  primera  de  la  lista  estå  a  una  distancia  horizontal  d. 

noAtaca  : :  Int  ->  Tablero  ->  Int  ->  Bool 
noAtaca  _  []  _  =  True 

noAtaca  r  (a:rs)  distH  =  abs(r-a)  /=  distH  && 

noAtaca  r  rs  (distH+1) 


11.3.  Numeros  de  Hamming 

Numeros  de  Hamming 

■  Enunciado:  Los  numeros  de  Hamming  forman  una  sucesion  estrictamente  crecien- 
te  de  numeros  que  cumplen  las  siguientes  condiciones: 

1.  El  numero  1  estå  en  la  sucesion. 

2.  Si  x  estå  en  la  sucesion,  entonces  2x,  3x  y  5x  también  estån. 

3.  Ningun  otro  numero  estå  en  la  sucesion. 

■  hamming  es  la  sucesion  de  Hamming.  Por  ejemplo, 

Itake  12  hamming  [1,2,3,4,5,6,8,9,10,12,15,16] 
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hamming  : 

:  [Int] 

hamming  = 

1  :  mezcla3  [2*i  I 

i  <-  hamming] 

[3*i  1 

i  <-  hamming] 

[5*i  1 

i  <-  hamming] 

■  mezcla3  xs  ys  zs  es  la  lista  obtenida  mezclando  las  listas  ordenadas  xs,  ys  y  zs 
y  eliminando  los  elementos  duplicados.  Por  ejemplo, 

Main>  mezcla3  [2,4,6,8,10]  [3,6,9,12]  [5,10] 

[2,3,4,5,6,8,9,10,12] 


mezcla3  : :  [Int]  ->  [Int]  ->  [Int]  ->  [Int] 
mezcla3  xs  ys  zs  =  mezcla2  xs  (mezcla2  ys  zs) 


■  mezcla2  xs  ys  zs  es  la  lista  obtenida  mezclando  las  listas  ordenadas  xs  e  ys  y 
eliminando  los  elementos  duplicados.  Por  ejemplo, 

Main>  mezcla2  [2,4,6,8,10,12]  [3,6,9,12] 

[2,3,4,6,8,9,10,12] 


mezcla2  : :  [Int] 

->  [Int] 

->  [Int] 

mezcla2  p@(x:xs) 

q@(y:ys) 

1  x  <  y  =  x:mezcla2 

xs 

q 

1  x  >  y  =  y:mezcla2 

p 

ys 

1  otherwise  =  x:mezcla2 

xs 

ys 

mezcla2  [] 

ys 

=  ys 

mezcla2  xs 

[] 

=  xs 
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Tema  12 


Analizadores  sintåcticos  funcionales 


12.1.  Analizadores  sintåcticos 

Analizadores  sintåcticos 

■  Un  analizador  sintåctico  es  un  programa  que  analiza  textos  para  determinar  su 

estructura  sintåctica. 

■  Ejemplo  de  anålisis  sintåctico  aritmético:  La  estructura  sintåctica  de  la  cadena 
"2*3+4"  es  el  årbol 


+ 


2  3 


■  El  anålisis  sintåctico  forma  parte  del  preprocesamiento  en  la  mayorfa  de  las  apli- 
caciones  reales. 


12.2.  El  tipo  de  los  analizadores  sintåcticos 

Opciones  para  el  tipo  de  los  analizadores  sintåcticos 

■  Opcion  inicial: 


type  Analizador  =  String  ->  Tree 


■  Con  la  parte  no  analizada: 
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type  Analizador  =  String  ->  (Tree , String) 


■  Con  todos  los  anålisis: 


type  Analizador  =  String  ->  [(Tree , String)] 


■  Con  estructuras  arbitrarias: 


type  Analizador  a  =  String  ->  [(a,String)] 


■  Simplificacion:  analizadores  que  fallan  o  solo  dan  un  anålisis. 


12.3.  Analizadores  sintåcticos  båsicos 

Analizadores  sintåcticos  båsicos:  resultado 

■  (analiza  a  cs)  analiza  la  cadena  cs  mediante  el  analizador  a.  Por  ejemplo, 

analiza  ::  Analizador  a  ->  String  ->  [(a, String)] 
analiza  a  cs  =  a  cs 


■  El  analizador  resultado  v  siempre  tiene  éxito,  devuelve  v  y  no  consume  nada. 
Por  ejemplo, 

*Main>  analiza  (resultado  1)  "abc" 

[(1, "abc")] 


resultado  : :  a  ->  Analizador  a 
resultado  v  =  \xs  ->  [(v,xs)] 


Analizadores  sintåcticos  båsicos:  fallo 

■  El  analizador  fallo  siempre  falla.  Por  ejemplo, 

*Main>  analiza  fallo  "abc" 

[] 


fallo  : :  Analizador  a 
fallo  =  \xs  ->  [] 
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Analizadores  sintåcticos  båsicos:  elemento 

■  El  analizador  elemento  falla  si  la  cadena  es  vacia  y  consume  el  primer  elemento 
en  caso  contrario.  Por  ejemplo, 

*Main>  analiza  elemento  "" 

[] 

*Main>  analiza  elemento  "abc" 

[(’aV'bc")] 


elemento  : : 

Analizador  Char 

elemento  = 

\xs  ->  case  xs  of 

□  ->  □ 

(x:xs)  ->  [(x  ,  xs)] 

12.4.  Composicion  de  analizadores  sintåcticos 

12.4.1.  Secuenciacion  de  analizadores  sintåcticos 

■  ( (p  c  liga£  f )  e)  falla  si  el  anålisis  de  e  por  p  falla,  en  caso  contrario,  se  obtiene 
un  val  or  (v)  y  una  salida  (s),  se  aplica  la  funcion  f  al  valor  v  obteniéndose  un 
nuevo  analizador  con  el  que  se  analiza  la  salida  s. 

liga  : :  Analizador  a  -> 

(a  ->  Analizador  b)  -> 

Analizador  b 

p  £ligac  f  =  \ent  ->  case  analiza  p  ent  of 

□  ->  □ 

[(v,sal)]  ->  analiza  (f  v)  sal 

■  primeroTercero  es  un  analizador  que  devuelve  los  caracteres  primero  y  tercero  de 
la  cadena.  Por  ejemplo, 

primeroTercero  "abel"  [( ( ’a’ , ’ e ’ ) , "1")] 

primeroTercero  "ab"  ^  [] 

primeroTercero  : :  Analizador  (Char,Char) 
primeroTercero  = 

elemento  £liga£  \x  -> 
elemento  £liga£  \_  -> 
elemento  £liga£  \y  -> 
resultado  (x,y) 
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12.4.2.  Eleccion  de  analizadores  sintåcticos 

■  ( (p  +++  q)  e)  analiza  e  con  p  y  si  falla  analiza  e  con  q.  Por  ejemplo, 
Main*>  analiza  (elemento  +++  resultado  ’d’)  "abc" 

[(’aV'bc")] 

Main*>  analiza  (fallo  +++  resultado  ’d’)  "abc" 

[( ’d’ , "abc")] 

Main*>  analiza  (fallo  +++  fallo)  "abc" 

[] 


(+++)  : :  Ånalizador  a  ->  Analizador  a  ->  Analizador  a 
p  +++  q  =  \ent  ->  case  analiza  p  ent  of 

[]  ->  analiza  q  ent 

[(v,sal)]  ->  [(v,sal)] 


12.5.  Primitivas  derivadas 

■  (sat  p)  es  el  analizador  que  consume  un  elemento  si  dicho  elemento  cumple  la 
propiedad  p  y  falla  en  caso  contrario.  Por  ejemplo, 

analiza  (sat  isLower)  "hola"  [( ’h’ , "ola")] 

analiza  (sat  isLower)  "Hola"  [] 


sat  : :  (Char  ->  Bool)  ->  Analizador  Char 
sat  p  =  elemento  cligac  \x  -> 

if  p  x  then  resultado  x  else  fallo 


■  digito  analiza  si  el  primer  caråcter  es  un  digito.  Por  ejemplo, 

analiza  digito  "123"  [( ’ 1 ’ , "23")] 

analiza  digito  "uno"  [] 


digito  : :  Analizador  Char 
digito  =  sat  isDigit 


■  minus  cula  analiza  si  el  primer  caråcter  es  una  letra  minuscula.  Por  ejemplo, 

analiza  minuscula  "eva"  ^  E(’e’,"va")] 

analiza  minuscula  "Eva"  [] 
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minuscula  : :  Analizador  Char 
minuscula  =  sat  isLower 


■  mayuscula  analiza  si  el  primer  caråcter  es  una  letra  mayuscula.  Por  ejemplo, 

analiza  mayuscula  "Eva"  E(’E’,"va")] 

analiza  mayuscula  "eva"  ^  [] 


mayuscula  : :  Analizador  Char 
mayuscula  =  sat  isUpper 


■  letra  analiza  si  el  primer  caråcter  es  una  letra.  Por  ejemplo, 

analiza  letra  "Eva"  E(’E’ ,"va")] 

analiza  letra  "eva"  [(’e’,"va")] 

analiza  letra  "123"  [] 


letra  : :  Analizador  Char 
letra  =  sat  isAlpha 


■  alf  anumerico  analiza  si  el  primer  caråcter  es  una  letra  o  un  numero.  Por  ejemplo. 


analiza 

alf anumerico 

"Eva" 

[( ’E’ ,"va" 

)] 

analiza 

alf anumerico 

"eva" 

[ ( ’ e ’ , "va" 

)] 

analiza 

alf anumerico 

"123" 

[( ’ 1’  , "23" 

)] 

analiza 

alf anumerico 

"  123" 

[] 

alfanumerico  : 

:  Analizador  Char 

alfanumerico  = 

sat  isAlphaNum 

■  (caracter  x)  analiza  si  el  primer  caråcter  es  igual  al  caråcter  x.  Por  ejemplo, 

analiza  (caracter  ’E’)  "Eva"  [(’E’,"va")] 

analiza  (caracter  ’E’)  "eva"  [] 


caracter  : :  Char  ->  Analizador  Char 
caracter  x  =  sat  (==  x) 


(cadena  c)  analiza  si  empieza  con  la  cadena  c.  Por  ejemplo. 
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analiza  (cadena  "abc")  "abcdef"  [("abc" , "def ")] 

analiza  (cadena  "abc")  "abdcef"  [] 


cadena  : :  String  ->  Analizador  String 
cadena  []  =  resultado  [] 

cadena  (x:xs)  =  caracter  x  £liga£  \x  -> 
cadena  xs  cligac  \xs  -> 
resultado  (x:xs) 


■  varios  p  aplica  el  analizador  p  cero  o  mås  veces.  Por  ejemplo, 

analiza  (varios  digito)  "235abc"  [("235" , "abc")] 

analiza  (varios  digito)  "abc235"  [("" , "abc235")] 


varios  : :  Analizador  a  ->  Analizador  [a] 
varios  p  =  variosl  p  +++  resultado  [] 


■  variosl  p  aplica  el  analizador  p  una  o  mås  veces.  Por  ejemplo, 

analiza  (variosl  digito)  "235abc"  [("235" , "abc")] 

analiza  (variosl  digito)  "abc235"  [] 


variosl  : :  Analizador  a  ->  Analizador  [a] 
variosl  p  =  p  £liga£  \v  -> 

varios  p  £liga£  \vs  -> 
resultado  (v:vs) 


■  ident  analiza  si  comienza  con  un  identificador  (i.e.  una  cadena  que  comienza  con 
una  letra  minuscula  seguida  por  caracteres  alfanuméricos).  Por  ejemplo, 

Main*>  analiza  ident  "lunesl2  de  Ene" 

[("lunesl2" , "  de  Ene")] 

Main*>  analiza  ident  "Lunesl2  de  Ene" 

[] 


ident  :  : 

Analizador  String 

ident  = 

minuscula 

£liga£ 

\x  -> 

varios  alf anumerico 

resultado  (x:xs) 

£ligac 

A 

1 

m 

>< 
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■  nat  analiza  si  comienza  con  un  numero  natural.  Por  ejemplo, 

analiza  nat  "14DeAbril"  [(14, "DeAbril")] 

analiza  nat  "  14DeAbril"  [] 


nat  : :  Anal i z ado r  Int 
nat  =  variosl  digito  cligac  \xs  -> 
resultado  (read  xs) 


■  espacio  analiza  si  comienza  con  espacios  en  blanco.  Por  ejemplo, 
I analiza  espacio  "  ab  c"  [((),"a  b  c")] 


espacio  : :  Analizador  () 

espacio  =  varios  (sat  isSpace)  £liga£  \_  -> 
resultado  O 


12.6.  Tratamiento  de  los  espacios 

■  unidad  p  ignora  los  espacios  en  blanco  y  aplica  el  analizador  p.  Por  ejemplo, 

Main*>  analiza  (unidad  nat)  "  14DeAbril" 

[(14, "DeAbril")] 

Main*>  analiza  (unidad  nat)  "  14  DeAbril" 

[(14, "DeAbril")] 


unidad  : :  Analizador  a  ->  Analizador  a 

unidad  p  =  espacio  £liga£  \_  -> 

p  £liga£  \v  -> 

espacio  £liga£  \_  -> 

resultado  v 


■  identif  icador  analiza  un  identificador  ignorando  los  espacios  delante  y  detrås. 
Por  ejemplo, 

Main*>  analiza  identificador  "  lunesl2  de  Ene" 

[("lunesl2" , "de  Ene")] 


identificador  : :  Analizador  String 
identificador  =  unidad  ident 
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■  natural  analiza  un  numero  natural  ignorando  los  espacios  delante  y  detrås.  Por 
ejemplo, 

| analiza  natural  "  14DeAbril"  [(14, "DeAbril")] 

natural  : :  Analizador  Int 
natural  =  unidad  nat 


■  (simbolo  xs)  analiza  la  cadena  xs  ignorando  los  espacios  delante  y  detrås.  Por 
ejemplo, 

Main*>  analiza  (simbolo  "abc")  "  abcdef" 

[("abc" , "def ")] 


simbolo  : :  String  ->  Analizador  String 
simbolo  xs  =  unidad  (cadena  xs) 


■  listaNat  analiza  una  lista  de  naturales  ignorando  los  espacios.  Por  ejemplo. 


Main*>  analiza 
[([2,3,5] ,"")] 

listaNat  " 

[ 

2, 

3, 

Main*>  analiza 

[] 

listaNat  " 

[ 

2, 

3,] 

listaNat 

: :  Analizador  [Int] 

listaNat 

=  simbolo  "[" 

cligac 

\_  -> 

natur al 

cliga£ 

\n  -> 

varios  (simbolo 

£liga£ 

\_  -> 

natur al) 

£ligac 

\ns  -> 

simbolo  "]  " 
resultado  (n:ns) 

£ligac 

\_  -> 

12.7.  Analizador  de  expresiones  aritméticas 

Expresiones  aritméticas 

■  Consideramos  expresiones  aritméticas: 

•  construidas  con  numeros,  operaciones  (+  y  *)  y  paréntesis. 

•  +  y  *  asocian  por  la  derecha. 
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•  *  tiene  mås  prioridad  que  +. 

■  Ejemplos: 

•  2  +  3  +  5  representa  a  2  +  (3  +  5). 

•  2*3  +  5  representa  a  (2  *  3)  +  5. 

Gramåticas  de  las  expresiones  aritméticas:  Gramåtica  1 

■  Gramåtica  1  de  las  expresiones  aritméticas: 

expr  ::=  expr  +  expr  \  expr  *  expr  |  ( expr )  \  nat 
nat  ::=  0  |  1  |  2  |  ... 

■  La  gramåtica  1  no  considera  prioridad: 

acepta  2  +  3*5  como  (2  +  3)  *  5  y  como  2  +  (3  *  5) 

■  La  gramåtica  1  no  considera  asociatividad: 

acepta  2  +  3  +  5  como  (2  +  3)  +  5  y  como  2  +  (3  +  5) 

■  La  gramåtica  1  es  ambigua. 

Gramåticas  de  las  expresiones  aritméticas:  Gramåtica  2 

■  Gramåtica  2  de  las  expresiones  aritméticas  (con  prioridad): 


expr 

::=  expr  +  expr 

term 

term 

::=  term*  term 

factor 

factor 

::=  (expr)  \  nat 

nat 

::=  0  |  1  |  2  |  ... 

■  La  gramåtica  2  si  considera  prioridad: 
acepta  2  +  3*5  solo  como  2  +  (3  *  5) 

■  La  gramåtica  2  no  considera  asociatividad: 

acepta  2  +  3  +  5  como  (2  +  3)  +  5  y  como  2  +  (3  +  5) 

■  La  gramåtica  2  es  ambigua. 

Årbol  de  anålisis  sintåctico  de  2  *  3  +  5  con  la  gramåtica  2 
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expr 

Sl\ 


expr  -g 

expr 

i 

i 

term 

term 

/ 

l 

\ 

i 

term 

* 

term  factor 

i 

i 

i 

factor 

factor 

nat 

i 

i 

i 

nat 

nat 

3 

1  I 

2  3 


Gramåticas  de  las  expresiones  aritméticas:  Gramåtica  3 

■  Gramåtica  3  de  las  expresiones  aritméticas: 

expr  ::=  term  +  expr  \  term 
term  ::=  factor  *  term  \  factor 
factor  ::=  (expr)  \  nat 
nat  ::=  0  |  1  |  2  |  . . . 

■  La  gramåtica  3  si  considera  prioridad: 
acepta  2  +  3*5  solo  como  2  +  (3  *  5) 

■  La  gramåtica  3  si  considera  asociatividad: 
acepta  2  +  3  +  5  como  2  +  (3  +  5) 

■  La  gramåtica  3  no  es  ambigua  (i.e.  es  libre  de  contexto). 

Årbol  de  anålisis  sintåctico  de  2  +  3  +  5  con  la  gramåtica  3 
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exipr 


/  i\ 

term  +  expr 


1 

/ 

l\ 

factor  term 

+  expr 

i 

1 

i 

nat 

factor 

term 

i 

i 

i 

2 

nat 

factor 

i 

i 

3 

nat 

i 


4 


Gramåticas  de  las  expresiones  aritméticas:  Gramåtica  4 

■  La  gramåtica  4  se  obtiene  simplificando  la  gramåtica  3: 


expr 

::=  term  (+  expr  e ) 

term 

::=  factor  (*  term  e 

factor 

::=  (expr)  nat 

nat 

::=  0  |  1  |  2  |  ... 

donde  e  es  la  cadena  vacia. 

■  La  gramåtica  4  no  es  ambigua. 

■  La  gramåtica  4  es  la  que  se  usarå  para  escribir  el  analizador  de  expresiones  arit¬ 
méticas. 


Analizador  de  expresiones  aritméticas 


■  expr  analiza  una  expresion  aritmética  devolviendo  su  valor.  Por  ejemplo. 


analiza  expr 
analiza  expr 
analiza  expr 
analiza  expr 


2*3+5" 

2* (3+5) " 

2+3*5" 

2*3+5abc" 


[(11,"")] 
[(16,"")] 
[(17,"")] 
[(11, "abc")] 


expr  : :  Analizador  Int 
expr  =  term  cligac  \t  -> 

(simbolo  "+"  cligac  \_  -> 

cligac  \e  -> 


expr 


resultado  (t+e)) 
+++  resultado  t 


1 _ 1 

averbterm  analiza  un  término  de  una  expresion  aritmética  devolviendo  su  valor. 

Por  ejemplo. 

analiza  term  "2*3+5" 

[(6 , "+5")] 

analiza  term  "2+3*5" 

[(2, "+3*5")] 

analiza  term  "(2+3) *5+7" 

l - 1 

/  N 

N- 

+ 

LO 

CN 

X— ✓ 

1 _ 1 

term  : :  Analizador  Int 

term  =  factor 

£ligac  \f  -> 

(simbolo  "*" 

£liga£  \_  -> 

term 

£liga£  \t  -> 

resultado  (f*t)) 

+++  resultado  f 

factor  analiza  un  factor  de 

una  expresion  aritmética  devolviendo  su  valor.  Por 

ejemplo. 

analiza  factor  "2*3+5" 

[(2, "*3+5")] 

analiza  factor  "(2+3) *5" 

i — i 

/  N 

LO 

* 

LO 

X— ' 

1 _ 1 

1 

analiza  factor  "(2+3*7)*5"  [(23, "*5")] 

factor  : :  Analizador  Int 

factor  =  (simbolo  "(" 

£liga£  \_  -> 

expr 

£liga£  \e  -> 

simbolo  ")" 

£liga£  \_  -> 

resultado  e) 

+++  natural 

(valor  cs)  analiza  la  cadena  cs  devolviendo  su  valor  si  es  una  expresion  aritmé- 
tica  y  un  mensaje  de  error  en  caso  contrario.  Por  ejemplo. 


valor 

"2*3+5" 

'■'o* 

11 

valor 

"2* (3+5)" 

16 

valor 

"2*3+  5" 

11 

valor 

"2*3x" 

*** 

Exception: 

sin  usar  x 

valor 

II  _  ^  II 

*** 

Exception: 

entrada  no  valida 
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valor  : :  String  ->  Int 
valor  xs  =  case  (analiza  expr  xs)  of 
E(n,  [] )]  ->  n 

[(_,sal)]  ->  error  ("sin  usar  "  ++  sal) 
[]  ->  error  "entrada  no  valida" 
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Tema  13 


Programas  interactivos 


13.1.  Programas  interactivos 

■  Los  programas  por  lote  no  interactuan  con  los  usuarios  durante  su  ejecucion. 

■  Los  programas  interactivos  durante  su  ejecucion  pueden  leer  datos  del  teclado  y 
escribir  resultados  en  la  pantalla. 

■  Problema: 

•  Los  programas  interactivos  tienen  efectos  laterales. 

•  Los  programa  Haskell  no  tiene  efectos  laterales. 

Ejemplo  de  programa  interactivo 

■  Especificacion:  El  programa  pide  una  cadena  y  dice  el  numero  de  caracteres  que 
tiene. 

■  Ejemplo  de  sesion: 

--  *Main>  longitudCadena 

--  Escribe  una  cadena:  "Hoy  es  lunes" 

--  La  cadena  tiene  14  caracteres 


■  Programa: 


longitudCadena  : 

:  10  0 

longitudCadena  = 

do  putStr  "Escribe  una  cadena:  " 

xs  <-  getLine 

putStr  "La  cadena  tiene  " 

putStr  (show  (length  xs)) 

putStrLn  "  caracteres" 
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13.2.  El  tipo  de  las  acciones  de  entrada/salida 

■  En  Haskell  se  pueden  escribir  programas  interactivos  usando  tipos  que  distingan 
las  expresiones  puras  de  las  acciones  impuras  que  tienen  efectos  laterales. 

■  10  a  es  el  tipo  de  las  acciones  que  devuelven  un  valor  del  tipo  a. 

■  Ejemplos: 

•  10  Char  es  el  tipo  de  las  acciones  que  devuelven  un  caråcter. 

•  10  ()  es  el  tipo  de  las  acciones  que  no  devuelven  ningun  valor. 

13.3.  Acciones  båsicas 

■  getChar  : :  10  Char 

La  accion  getChar  lee  un  caråcter  del  teclado,  lo  muestra  en  la  pantalla  y  lo  de- 
vuelve  como  valor. 

■  putChar  : :  c  ->  10  O 

La  accion  putChar  c  escribe  el  caråcter  c  en  la  pantalla  y  no  devuelve  ningun  valor. 

■  return  a  ->  10  a 

La  accion  return  c  devuelve  el  valor  c  sin  ninguna  interaccion. 

■  Ejemplo: 

*Main>  putChar  ’b’ 
b*Main>  it 

O 


13.4.  Secuenciacion 

■  Una  sucesion  de  acciones  puede  combinarse  en  una  accion  compuesta  mediante 
expresiones  do. 


■  Ejemplo: 


ejSecuenciacion  : 

:  10  (Char, Char) 

ejSecuenciacion  = 

do  x  <-  getChar 

getChar 

y  <-  getChar 

return  (x,y) 
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Lee  dos  caracteres  y  devuelve  el  par  formado  por  ellos.  Por  ejemplo. 


*Main>  ejSecuenciacion 
b  f 

(’b’ ,  ’f  ’) 


13.5.  Primitivas  derivadas 

■  Lectura  de  cadenas  del  teclado: 

_  Prelude  — 

getLine  : :  10  String 
getLine  =  do  x  <-  getChar 

if  x  ==  ’\n’  then  return  [] 
else  do  xs  <-  getLine 
return  (x:xs) 


■  Escritura  de  cadenas  en  la  pantalla: 

_  Prelude 

putStr  : :  String  ->  10  () 
putStr  []  =  return  () 

putStr  (x:xs)  =  do  putChar  x 

putStr  xs 


■  Escritura  de  cadenas  en  la  pantalla  y  salto  de  ltnea: 

_  Prelude  _ 

putStrLn  : :  String  ->  10  O 
putStrLn  xs  =  do  putStr  xs 

putChar  ’\n’ 


■  Ejecucion  de  una  lista  de  acciones: 

-  Prelude 

sequence_  : :  [10  a]  ->  10  O 
sequence_  []  =  return  () 

sequence.  (a:as)  =  do  a 

sequence.  as 


Por  ejemplo. 
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*Main>  sequence_  [putStrLn  "uno",  putStrLn  "dos"] 

uno 

dos 

*Main>  it 

O 

Ejemplo  de  programa  con  primitivas  derivadas 

■  Especificacion:  El  programa  pide  una  cadena  y  dice  el  numero  de  caracteres  que 
tiene. 

■  Ejemplo  de  sesion: 

--  *Main>  longitudCadena 

--  Escribe  una  cadena:  "Hoy  es  lunes" 

--  La  cadena  tiene  14  caracteres 


■  Programa: 


longitudCadena  : 

:  10  O 

longitudCadena  = 

do  putStr  "Escribe  una  cadena:  " 

xs  <-  getLine 

putStr  "La  cadena  tiene  " 

putStr  (show  (length  xs)) 

putStrLn  "  caracteres" 

13.6.  Ejemplos  de  programas  interactivos 

13.6.1.  Juego  de  adivinacion  interactivo 

■  Descripcion:  El  programa  le  pide  al  jugador  humano  que  piense  un  numero  entre 
1  y  100  y  trata  de  adi  vinar  el  numero  que  ha  pensado  planteåndole  conjeturas  a  las 
que  el  jugador  humano  responde  con  mayor,  menor  o  exacto  segun  que  el  numero 
pensado  sea  mayor,  menor  o  igual  que  el  numero  conjeturado  por  la  måquina. 

■  Ejemplo  de  sesion: 

Main>  juego 

Piensa  un  numero  entre  el  1  y  el  100. 

Es  50?  [mayor/menor/exacto]  mayor 
Es  75?  [mayor/menor/exacto]  menor 
Es  62?  [mayor/menor/exacto]  mayor 
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Es  68?  [mayor/menor/exacto]  exacto 
Fin  del  juego 

■  Programa: 

juego  : :  10  O 
juego  = 

do  putStrLn  "Piensa  un  numero  entre  el  1  y  el  100." 
adivina  1  100 
putStrLn  "Fin  del  juego" 

adivina  : :  Int  ->  Int  ->  10  O 
adivina  a  b  = 

do  putStr  ("Es  "  ++  show  conjetura  ++  "?  [mayor/menor/exacto]  ") 
s  <-  getLine 
case  s  of 

"mayor"  ->  adivina  (conjetura+1)  b 
"menor"  ->  adivina  a  (conjetura-1) 

"exacto"  ->  return  () 

->  adivina  a  b 

where 

conjetura  =  (a+b)  cdiv£  2 


13.6.2.  Calculadora  aritmética 

Acciones  auxiliares 

■  Escritura  de  caracteres  sin  eco: 

getCh  : :  10  Char 
getCh  =  do  hSetEcho  stdin  False 
c  <-  getChar 
hSetEcho  stdin  True 
return  c 


■  Limpieza  de  la  pantalla: 

limpiaPantalla: :  10  O 
limpiaPantalla=  putStr  "\ESC[2J" 


Escritura  en  una  posicion: 


type  Pos  =  (Int,Int) 

irA  : :  Pos  ->  10  O 

irA  (x,y)  =  putStr  ("\ESC["  ++ 

show  y  ++  " ; "  ++  show  x  ++ 
"H") 

escribeEn  : :  Pos  ->  String  ->  10  () 
escribeEn  p  xs  =  do  irA  p 

putStr  xs 


Calculadora 


calculadora 

calculadora 


:  10  O 

do  limpiaPantalla 
escribeCalculadora 
limpi ar 


escribeCalculadora  : :  10  O 
escribeCalculadora  = 
do  limpiaPantalla 

sequence.  [escribeEn  (l,y)  xs 

I  (y,xs)  <-  zip  [1..13]  imagenCalculadora] 

putStrLn  "" 


imagenCalculadora  : 
imagenCalculadora  = 


[String] 


+ - + - + - + - H 


I  q  I  c  I  d  I  = 


I  1  I  2  |  3  I  + 


I  4  |  5  16  1- 


+ - + - + - + - H 


I  7  I  8  I  9  I  * 


+ - + - + - + - H 


10  1(1)1/ 
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"+ — + — + — + — +"] 


Los  primeros  cuatro  botones  permiten  escribir  las  ordenes: 

■  q  para  salir  ('quit'), 

■  c  para  limpiar  la  agenda  ('clear'), 

■  d  para  borrar  un  caråcter  ('delete')  y 

■  =  para  evaluar  una  expresion. 

Los  restantes  botones  permiten  escribir  las  expresiones. 

limpiar  : :  10  O 
limpiar  =  calc  "" 

calc  : :  String  ->  10  O 
calc  xs  =  do  escribeEnPantalla  xs 
c  <-  getCh 
if  elem  c  botones 
then  procesa  c  xs 
else  do  calc  xs 

escribeEnPantalla  xs  = 

do  escribeEn  (3,2)  "  " 

escribeEn  (3,2)  (reverse  (take  13  (reverse  xs))) 


botones  : :  String 
botones  =  standard  ++  extra 
where 

standard  =  "qcd=123+456-789*0 O /" 
extra  =  "QCD  \ESC\BS\DEL\n" 

procesa  : :  Char  ->  String  ->  10  O 
procesa  c  xs 

I  elem  c  "qQ\ESC"  =  salir 

I  elem  c  "dD\BS\DEL"  =  borrar  xs 

I  elem  c  "=\n"  =  evaluar  xs 

I  elem  c  "cC"  =  limpiar 

I  otherwise  =  agregar  c  xs 
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salir  : :  10  () 
salir  =  irA  (1,14) 

borrar  : :  String  ->  10  () 
borrar  ""  =  calc  "" 
borrar  xs  =  calc  (init  xs) 

evaluar  : :  String  ->  10  O 
evaluar  xs  =  case  analiza  expr  xs  of 
E(n,"")]  ->  calc  (show  n) 
->  do  calc  xs 

agregar  : :  Char  ->  String  ->  10  () 
agregar  c  xs  =  calc  (xs  ++  [c]) 


13.6.3.  El  juego  de  la  vida 

Descripcion  del  juego  de  la  vida 

■  El  tab  lero  del  juego  de  la  vida  es  una  malla  formada  por  cuadrados  ("células")  que 
se  pliega  en  todas  las  direcciones. 

■  Cada  célula  tiene  8  células  vecinas,  que  son  las  que  estån  proximas  a  ella,  incluso 
en  las  diagonales. 

■  Las  células  tienen  dos  estados:  estån  "vivas"  o  "muertas". 

■  El  estado  del  tablero  evoluciona  a  lo  largo  de  unidades  de  tiempo  discretas. 

■  Las  transiciones  dependen  del  numero  de  células  vecinas  vivas: 

•  Una  célula  muerta  con  exactamente  3  células  vecinas  vivas  "nace"  (al  turno 
siguiente  estarå  viva). 

•  Una  célula  viva  con  2  6  3  células  vecinas  vivas  sigue  viva,  en  otro  caso  muere. 

El  tablero  del  juego  de  la  vida 

■  Tablero: 

type  Tablero  =  [Pos] 
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■  Dimensiones: 

ancho  : :  Int 
ancho  =  5 

alto  : :  Int 
alto  =  5 


El  juego  de  la  vida 

■  Ejemplo  de  tablero: 


ejTablero  : :  Tablero 

ejTablero  =  [(2,3) , (3,4) , (4,2) , (4,3)  ,  (4,4)] 


■  Representacion  del  tablero: 

1234 

1 

2  0 

3  0  0 

4  00 

■  (vida  n  t)  simula  el  juego  de  la  vida  a  partir  del  tablero  t  con  un  tiempo  entre 
generaciones  proporcional  a  n.  Por  ejemplo, 

I  vida  100000  ejTablero 


vida  : :  Int  ->  Tablero  ->  10  O 
vida  n  t  =  do  limpiaPantalla 

escribeTablero  t 
espera  n 

vida  n  (siguienteGeneracion  t) 


■  Escritura  del  tablero: 

escribeTablero  : :  Tablero  ->  10  O 

escribeTablero  t  =  sequence_  [escribeEn  p  "0"  I  p  <-  t] 


Espera  entre  generaciones: 
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espera  : :  Int  ->  10  0 

espera  n  =  sequence_  [return  ()  I 

i — i 

i — i 
£ 

T — 1 

1 _ 1 

1 

V 

1 

■  siguienteGeneracion  t)  es  el  tablero  de  la  siguiente  generacion  al  tablero  t.  Por 
ejemplo, 

*Main>  siguienteGeneracion  ejTablero 
[(4,3) , (3,4) , (4,4) , (3,2) ,  (5,3)] 


siguienteGeneracion  : :  Tablero  ->  Tablero 
siguienteGeneracion  t  =  supervivientes  t  ++  nacimientos  t 


■  (supervivientes  t)  es  la  listas  de  posiciones  de  t  que  sobreviven;  i.e.  posiciones 
con  2  6  3  vecinos  vivos.  Por  ejemplo, 

I supervivientes  ejTablero  [(4,3) , (3,4) , (4,4)] 


supervivientes  : :  Tablero  ->  [Pos] 
supervivientes  t  =  [p  I  p  <-  t, 

elem  (nVecinosVivos  t  p)  [2,3]] 


■  (nVecinosVivos  t  c)  es  el  numero  de  vecinos  vivos  de  la  célula  c  en  el  tablero  t. 
Por  ejemplo, 

nVecinosVivos  ejTablero  (3,3)  5 

nVecinosVivos  ejTablero  (3,4)  3 


nVecinosVivos  : :  Tablero  ->  Pos  ->  Int 

nVecinosVivos  t  =  length  .  filter  (tieneVida  t)  .  vecinos 


(vecinos  p)  es  la  lista  de  los  vecinos  de  la  célula  en  la  posicion  p.  Por  ejemplo. 


vecinos 

vecinos 

vecinos 

vecinos 

vecinos 

vecinos 

vecinos 


(2,3) 

(1,2) 

(5,2) 

(2,1) 

(2.5) 
(1,1) 

(5.5) 


[(1,2), (2, 2), (3, 2), (1,3) 
[(5,1), (1,1), (2,1), (5, 2) 
[(4,1), (5,1), (1,1), (4, 2) 
[(1,5), (2, 5), (3, 5), (1,1) 
[(1,4), (2, 4), (3, 4), (1,5) 
[(5, 5), (1,5), (2, 5), (5,1) 
[(4, 4), (5, 4), (1,4), (4, 5) 


(3, 3), (1,4), (2, 4), (3, 4)] 

(2. 2) , (5, 3), (1,3), (2, 3)] 

(1.2) , (4, 3), (5, 3), (1,3)] 

(3.1) , (1,2), (2, 2), (3, 2)] 

(3. 5) , (1,1), (2,1), (3,1)] 

(2.1) , (5, 2), (1,2), (2, 2)] 

(1.5) , (4,1), (5,1), (1,1)] 
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vecinos  : :  Pos  ->  [Pos] 
vecinos  (x,y)  =  map  modular 

[(x-l,y-l) , 

N 

X 

1 

M- 

(x+1 ,y-l) , 

(x-l,y) , 

(x+1 ,y) , 

(x-l,y+l) , 

(x,y+l) , 

(x+1 ,y+l)] 

■  (modular  p)  es  la  posicion  correspondiente  a  p  en  el  tablero  considerando  los  ple- 
gados.  Por  ejemplo. 


modul ar 

(6,3) 

(1,3) 

modul ar 

(0,3) 

(5,3) 

modul ar 

(3,6) 

(3,1) 

modul ar 

(3,0) 

(3,5) 

modular  : :  Pos  ->  Pos 

modular  (x,y)  =  ( ( (x- 1)  cmodc  ancho)  +  1,  ( (y- 1 )  cmodc  alto  +  1)) 


■  (tieneVida  t  p)  se  verifica  si  la  posicion  p  del  tablero  t  tiene  vida.  Por  ejemplo, 

tieneVida  ejTablero  (1,1)  False 

tieneVida  ejTablero  (2,3)  True 


tieneVida  : :  Tablero  ->  Pos  ->  Bool 
tieneVida  t  p  =  elem  p  t 


■  (noTieneVida  t  p)  se  verifica  si  la  posicion  p  del  tablero  t  no  tiene  vida.  Por  ejem¬ 
plo, 

noTieneVida  ejTablero  (1,1)  True 

noTieneVida  ejTablero  (2,3)  False 


noTieneVida  : :  Tablero  ->  Pos  ->  Bool 
noTieneVida  t  p  =  not  (tieneVida  t  p) 


■  (nacimientos  t)  es  la  lista  de  los  nacimientos  de  tablero  t;  i.e.  las  posiciones  sin 
vida  con  3  vecinos  vivos.  Por  ejemplo, 

[nacimientos  ejTablero  [(3,2) , (5,3)] 
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nacimientos’  : 

Tablero 

->  [Pos] 

nacimientos’  t 

=  E(x,y) 

1  x  <-  [1. .ancho] , 

y  <-  [1. .alto]  , 

noTieneVida  t  (x,y), 

nVecinosVivos  t  (x,y)  ==  3] 

■  Definicion  mås  eficiente  de  nacimientos 


nacimientos  : 

Tablero  ->  [Pos] 

nacimientos  t 

=  [p  1  p  <-  nub  (concat  (map  vecinos  t)), 

noTieneVida  t  p, 

nVecinosVivos  t  p  ==  3] 

donde  (nub  xs)  es  la  lista  obtenida  eliminando  las  repeticiones  de  xs.  Por  ejemplo, 
|nub  [2, 3, 2, 5]  [2,3,5] 
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El  TAD  de  las  pilas 

14.1.  Tipos  abstractos  de  datos 

14.1.1.  Abstraccion  y  tipos  abstractos  de  datos 

Abstraccion  y  tipos  abstractos  de  datos 

■  La  abstraccion  es  un  mecanismo  para  comprender  problemas  que  involucran  una 
gran  cantidad  de  detalles. 

■  Aspectos  de  la  abstraccion: 

•  Destacar  los  detalles  relevantes. 

•  Ocultar  los  detalles  irrelevantes. 

■  Un  tipo  abstracto  de  datos  (TAD)  es  una  coleccion  de  valores  y  operaciones  que  se 
definen  mediante  una  especificacion  que  es  independiente  de  cualquier  representa- 
cion. 

■  Un  TAD  es  una  abstraccion: 

•  Se  destacan  los  detalles  (normalmente  pocos)  de  la  especificacion  (el  qué). 

•  Se  ocultan  los  detalles  (normalmente  numerosos)  de  la  implementacion  (el 
conto ). 

■  Analogia  con  las  estructuras  algebraicas. 

14.2.  Especificacion  del  TAD  de  las  pilas 

14.2.1.  Signatura  del  TAD  pilas 

Descripcion  informal  de  las  pilas 
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■  Una  pila  es  una  estructura  de  datos,  caracterizada  por  ser  una  secuencia  de  ele¬ 
mentos  en  la  que  las  operaciones  de  insercion  y  extraccion  se  realizan  por  el  mismo 
extremo. 

■  La  pilas  también  se  llaman  estructuras  LIFO  (del  inglés  Last  In  First  Out),  debido 
a  que  el  ultimo  elemento  en  entrar  serå  el  primero  en  salir. 

■  Analogia  con  las  pilas  de  platos. 

Signatura  del  TAD  de  las  pilas 

■  Signatura: 

vacia  : :  Pila  a 

apila  : :  a  ->  Pila  a  ->  Pila  a 

cima  : :  Pila  a  ->  a 

desapila  : :  Pila  a  ->  Pila  a 

esVacia  : :  Pila  a  ->  Bool 

■  Descripcion: 

•  vacia  es  la  pila  vacia. 

•  (apila  x  p)  es  la  pila  obtenida  anadiendo  x  al  principio  de  p. 

•  (cima  p)  es  la  cima  de  la  pila  p. 

•  (desapila  p)  es  la  pila  obtenida  suprimiendo  la  cima  de  p. 

•  (esVacia  p)  se  verifica  si  p  es  la  pila  vacia. 

14.2.2.  Propiedades  del  TAD  de  las  pilas 

Propiedades  de  las  pilas 

1.  cima  (apila  x  p)  ==  x 

2.  desapila  (apila  x  p)  ==  p 

3.  esVacia  vacia 

4.  not  (esVacia  (apila  x  p)) 
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14.3.  Implementaciones  del  TAD  de  las  pilas 

14.3.1.  Las  pilas  como  tipos  de  datos  algebraicos 

■  Cabecera  del  modulo: 

module  PilaConTipoDeDatoAlgebraico 
(Pila, 

vacia,  --  Pila  a 

apila,  --  a  ->  Pila  a  ->  Pila  a 
cima,  --  Pila  a  ->  a 

desapila,  --  Pila  a  ->  Pila  a 
esVacia  --  Pila  a  ->  Bool 
)  where 


■  Tipo  de  dato  algebraico  de  las  pilas. 

data  Pila  a  =  Vacia  I  P  a  (Pila  a) 
deriving  Eq 


■  Procedimiento  de  escritura  de  pilas. 

instance  (Show  a)  =>  Show  (Pila  a)  where 

showsPrec  p  Vacia  cad  =  showChar  cad 
showsPrec  p  (P  x  s)  cad  = 

shows  x  (showChar  ’ |’  (shows  s  cad)) 


■  Ejemplo  de  pila: 

•  Definition 

pi  : :  Pila  Int 

pi  =  apila  1  (apila  2  (apila  3  vacia)) 

•  Sesion 

ghci>  pi 
1 1 2131- 


vacia  es  la  pila  vacia.  Por  ejemplo, 
|ghci>  vacia 


vacia  : :  Pila  a 
vacia  =  Vacia 


(apila  x  p)  es  la  pila  obtenida  anadiedo  x  encima  de  la  pila  p.  Por  ejemplo, 
|  apila  4  pi  =>  4 1 1 1  2  1 3 1  - 

apila  : :  a  ->  Pila  a  ->  Pila  a 
apila  x  p  =  P  x  p 


(cima  p)  es  la  cima  de  la  pila  p.  Por  ejemplo, 
I  cima  pi  ==  1 


cima  : :  Pila  a  ->  a 

cima  Vacia  =  error  "cima:  pila  vacia" 
cima  (P  x  _)  =  x 


(de  s  api  la  p)  es  la  pila  obtenida  suprimiendo  la  cima  de  la  pila  p.  Por  ejemplo, 
(desapila  pi  =>  2  1 3  I  - 


desapila  : :  Pila  a  ->  Pila  a 

desapila  Vacia  =  error  "desapila:  pila  vacia" 
desapila  (P  _  p)  =  p 


(esVacia  p)  se  verifica  si  p  es  la  pila  vacia.  Por  ejemplo, 

esVacia  pi  ==  False 
esVacia  vacia  ==  True 


esVacia  : :  Pila  a  ->  Bool 
esVacia  Vacia  =  True 
esVacia  _  =  False 
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14.3.2.  Las  pilas  como  listas 

■  Cabecera  del  modulo 


module  PilaConListas 

(Pila, 

vacia, 

--  Pila 

a 

apila, 

--  a  -> 

Pila 

a  ->  Pila  a 

cima, 

--  Pila 

a  -> 

a 

desapila, 

--  Pila 

a  -> 

Pila  a 

esVacia 

--  Pila 

a  -> 

Bool 

)  where 

■  Tipo  de  datos  de  las  pilas: 

newtype  Pila  a  =  P  [a] 
deriving  Eq 


■  Procedimiento  de  escritura  de  pilas. 

instance  (Show  a)  =>  Show  (Pila  a)  where 

showsPrec  p  (P  [] )  cad  =  showChar  cad 
showsPrec  p  (P  (x:xs))  cad 

=  shows  x  (showChar  ’|’  (shows  (P  xs)  cad)) 


■  Ejemplo  de  pila:  pi  es  la  pila  obtenida  anadiéndole  los  elementos  3,  2  y  1  a  la  pila 
vacia.  Por  ejemplo, 

ghci>  pi 
1 1  2|3|- 


pl  =  apila  1  (apila  2  (apila  3  vacia)) 


■  vacia  es  la  pila  vacia.  Por  ejemplo, 
ghci>  vacia 

vacia  : :  Pila  a 
vacia  =  P  [] 


(apila  x  p)  es  la  pila  obtenida  anadiendo  x  encima  de  la  pila  p.  Por  ejemplo. 
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apila  4  pi  =>  4 1 1 1  2  1 3 1  -  I 


apila  : :  a  ->  Pila  a  ->  Pila  a 
apila  x  (P  xs)  =  P  (x:xs) 


■  (cima  p)  es  la  cima  de  la  pila  p.  Por  ejemplo, 
I cima  pi  ==  1 


cima  : :  Pila  a  ->  a 
cima  (P  (x:_))  =  x 

cima  (P  [] )  =  error  "cima  de  la  pila  vacia" 


■  (de  s  api  la  p)  es  la  pila  obtenida  suprimiendo  la  cima  de  la  pila  p.  Por  ejemplo, 
(desapila  pi  =>  2  1 3  I  - 


desapila  : :  Pila  a  ->  Pila  a 

desapila  (P  [])  =  error  "desapila  la  pila  vacia" 

desapila  (P  (_:xs))  =  P  xs 


■  (esVacia  p)  se  verifica  si  p  es  la  pila  vacia.  Por  ejemplo, 

esVacia  pi  ==  False 
esVacia  vacia  ==  True 


esVacia  : :  Pila  a  ->  Bool 
esVacia  (P  xs)  =  nuil  xs 


14.4.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

14.4.1.  Librerfas  auxiliares 

Importacion  de  librerfas 

■  Importacion  de  la  implementacion  de  pilas  que  se  desea  comprobar. 

import  PilaConTipoDeDatoAlgebraico 
—  import  PilaConListas 
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■  Importacion  de  las  librerfas  de  comprobacion 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


14.4.2.  Generador  de  pilas 

Generador  de  pilas 

■  genPi la  es  un  generador  de  pilas.  Por  ejemplo, 

ghci>  sample  genPila 
0101- 

-6  1 4 1 -3 1 3  I  0 1  - 
9 1 5 1 -1 1 -3 1 0 1 -81-51-7121- 


genPila  : :  (Wum  a,  Arbitrary  a)  =>  Gen  (Pila  a) 
genPila  =  do  xs  <-  listOf  arbitrary 

return  (foldr  apila  vacia  xs) 

instance  (Arbitrary  a,  Num  a)  =>  Arbitrary  (Pila  a)  where 
arbitrary  =  genPila 


14.4.3.  Especificacion  de  las  propiedades  de  las  pilas 

■  La  cima  de  la  pila  que  resulta  de  anadir  x  a  la  pila  p  es  x. 

prop_cima_apila  : :  Int  ->  Pila  Int  ->  Bool 
prop_cima_apila  x  p  = 

cima  (apila  x  p)  ==  x 


■  La  pila  que  resulta  de  desapilar  después  de  anadir  cualquier  elemento  a  una  pila 
p  es  p. 

prop_desapila_apila  : :  Int  ->  Pila  Int  ->  Bool 
prop_desapila_apila  x  p  = 

desapila  (apila  x  p)  ==  p 
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■  La  pila  vacia  estå  vacia. 

prop_vacia_esta_vacia  : :  Bool 
prop_vacia_esta_vacia  = 
esVacia  vacia 


■  La  pila  que  resulta  de  anadir  un  elemento  en  un  pila  cualquiera  no  es  vacia. 

prop_apila_no_es_vacia  : :  Int  ->  Pila  Int  ->  Bool 
prop_apila_no_es_vacia  x  p  = 
not  (esVacia  (apila  x  p)) 


14.4.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 

■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 

compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  TÅD  pilas" 

[testProperty  "PI"  prop_cima_ apila , 
testProperty  "P2"  prop_desapila_apila, 
testProperty  "P3"  prop_vacia_esta_vacia , 
testProperty  "P4"  prop_apila_no_es_vacia] ] 


Comprobacion  de  las  propiedades  de  las  pilas 

ghci>  compruebaPropiedades 
Propiedades  del  TÅD  pilas: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

Properties  Total 
Passed  4  4 

Failed  0  0 

Total  4  4 


Tema  15 


El  TAD  de  las  colas 


15.1.  Especificacion  del  TAD  de  las  colas 

15.1.1.  Signatura  del  TAD  de  las  colas 

Descripcion  informal  de  las  colas 

■  Una  cola  es  una  estructura  de  datos,  caracterizada  por  ser  una  secuencia  de  ele¬ 
mentos  en  la  que  la  operacion  de  insercion  se  realiza  por  un  extremo  (el  posterior 
o  final)  y  la  operacion  de  extraccion  por  el  otro  (el  anterior  o  frente). 

■  Las  colas  también  se  llaman  estructuras  FIFO  (del  inglés  First  In  First  Out),  debido 
a  que  el  primer  elemento  en  entrar  serå  también  el  primero  en  salir. 

■  Analogia  con  las  colas  del  cine. 


Signatura  del  TAD  colas 


■  Signatura: 


vacia 

inserta 

primero 

resto 

esVacia 

valida 


Cola  a 

a  ->  Cola  a  ->  Cola  a 
Cola  a  ->  a 
Cola  a  ->  Cola  a 
Cola  a  ->  Bool 
Cola  a  ->  Bool 


■  Descripcion  de  las  operaciones: 


•  vacia  es  la  cola  vacia. 

•  (inserta  x  c)  es  la  cola  obtenida  anadiendo  x  al  final  de  c. 
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•  (primero  c)  es  el  primero  de  la  cola  c. 

•  (resto  c)  es  la  cola  obtenida  eliminando  el  primero  de  c. 

•  (esVacia  c)  se  verifica  si  c  es  la  cola  vada. 

•  (valida  c)  se  verifica  si  c  representa  una  cola  vålida. 

15.1.2.  Propiedades  del  TAD  de  las  colas 

Propiedades  del  TAD  de  las  colas 

1.  primero  (inserta  x  vacia)  ==  x 

2.  Si  c  es  una  cola  no  vacia,  entonces 
primero  (inserta  x  c)  ==  primero  c, 

3.  resto  (inserta  x  vacia)  ==  vacia 

4.  Si  c  es  una  cola  no  vacia,  entonces 

resto  (inserta  x  c)  ==  inserta  x  (resto  c) 

5.  esVacia  vacia 

6.  not  (esVacia  (inserta  x  c)) 

15.2.  Implementaciones  del  TAD  de  las  colas 

15.2.1.  Implementacion  de  las  colas  mediante  listas 

■  Cabecera  del  modulo: 


module  ColaConListas 

(Cola, 

vacia, 

--  Cola 

a 

inserta, 

--  a  -> 

Cola 

a  ->  Cola  a 

primero , 

--  Cola 

a  -> 

a 

resto , 

--  Cola 

a  -> 

Cola  a 

esVacia, 

--  Cola 

a  -> 

Bool 

valida 

--  Cola 

a  -> 

Bool 

)  where 

■  Representacion  de  las  colas  mediante  listas: 


newtype  Cola  a  =  C  [a]  deriving  (Show,  Eq) 
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■  Ejemplo  de  cola:  cl  es  la  cola  obtenida  anadiéndole  a  la  cola  vacia  los  numeros  del 
1  al  10.  Por  ejemplo, 

ghci>  cl 

C  [10,9,8,7,6,5,4,3,2,1] 


cl  =  foldr  inserta  vacia  [1..10] 


■  vacia  es  la  cola  vacla.  Por  ejemplo, 

ghci>  vacia 
C  [] 


vacia  : :  Cola  a 
vacia  =  C  [] 


■  (inserta  x  c)  es  la  cola  obtenida  anadiendo  x  al  final  de  la  cola  c.  Por  ejemplo, 
[inserta  12  cl  C  [10,9,8,7,6,5,4,3,2,1,12] 

inserta  : :  a  ->  Cola  a  ->  Cola  a 
inserta  x  (C  c)  =  C  (c  ++  [x] ) 


■  (primero  c)  es  el  primer  elemento  de  la  cola  c.  Por  ejemplo, 
I  primero  cl  10 


primero  : :  Cola  a  ->  a 
primero  (C  (x:_))  =  x 

primero  (C  [] )  =  error  "primero:  cola  vacia" 


■  (resto  c)  es  la  cola  obtenida  eliminando  el  primer  elemento  de  la  cola  c.  Por 
ejemplo, 

Iresto  cl  ^  C  [9, 8, 7, 6, 5, 4, 3, 2, 1] 


resto 

Cola  a  -> 

Cola  a 

resto 

(C 

S  N 

1 

X 

Ul 

II 

C  xs 

resto 

(C 

□  ) 

error  "resto:  cola  vacia" 

(esVacia  c)  se  verifica  si  c  es  la  cola  vacia.  Por  ejemplo. 
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esVacia  cl  False 

esVacia  vacia  True 


esVacia 

:  :  Cola 

a  ->  Bool 

esVacia 

(C  xs) 

=  nuli  xs 

■  (valida  c)  se  verifica  si  c  representa  una  cola  vålida.  Con  esta  representacion, 
todas  las  colas  son  vålidas. 

valida  : :  Cola  a  ->  Bool 
valida  c  =  True 


15.2.2.  Implementacion  de  las  colas  mediante  pares  de  listas 

Las  colas  como  pares  de  listas 

■  En  esta  implementacion,  una  cola  c  se  representa  mediante  un  par  de  listas  (xs ,  ys) 

de  modo  que  los  elementos  de  c  son,  en  ese  orden,  los  elementos  de  la  lista  xs++  (reverse  ys) . 

■  Al  dividir  la  lista  en  dos  parte  e  invertir  la  segunda  de  ellas,  esperamos  hacer  mås 
eficiente  las  operaciones  sobre  las  colas. 

■  Impondremos  también  una  restriccion  adicional  sobre  la  representacion:  las  colas 
serån  representadas  mediante  pares  (xs,ys)  tales  que  si  xs  es  vacia,  entonces  ys 
serå  también  vacia. 

■  Esta  restriccion  ha  de  mantenerse  por  las  operaciones  que  crean  colas. 

Implementacion  de  las  colas  como  pares  de  listas 


■  Cabecera  del  modulo 


module  ColaConDosListas 

(Cola, 

vacia, 

--  Cola 

a 

inserta, 

--  a  -> 

Cola 

a  ->  Cola  a 

primero , 

--  Cola 

a  -> 

a 

resto , 

--  Cola 

a  -> 

Cola  a 

esVacia, 

--  Cola 

a  -> 

Bool 

valida 

--  Cola 

a  -> 

Bool 

)  where 
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■  Las  colas  como  pares  de  listas 


newtype  Cola  a  =  C  ( [a] , [a] ) 


■  (valida  c)  se  verifica  si  la  cola  c  es  vålida;  es  decir,  si  su  primer  elemento  es  vado 
entonces  también  lo  es  el  segundo.  Por  ejemplo, 

valida  (C  ([2],  [5]))  True 

valida  (C  ( [2]  ,  [] ) )  True 

valida  (C  ( []  ,  [5] ) )  False 


valida: :  Cola  a  ->  Bool 

valida  (C  (xs,ys))  =  not  (nuil  xs)  I  I  nuil  ys 


■  Procedimiento  de  escritura  de  colas  como  pares  de  listas. 

instance  Show  a  =>  Show  (Cola  a)  where 
showsPrec  p  (C  (xs,ys))  cad 

=  showString  "C  "  (showList  (xs  ++  (reverse  ys))  cad) 


■  Ejemplo  de  cola:  cl  es  la  cola  obtenida  anadiéndole  a  la  cola  vada  los  numeros  del 
1  al  10.  Por  ejemplo, 

ghci>  cl 

C  [10,9,8,7,6,5,4,3,2,1] 


cl  : :  Cola  Int 

cl  =  foldr  inserta  vacia  [1..10] 


■  vacia  es  la  cola  vada.  Por  ejemplo, 

ghci>  cl 

C  [10,9,8,7,6,5,4,3,2,1] 

vacia  : :  Cola  a 
vacia  =  C  ([],[]) 

■  (inserta  x  c)  es  la  cola  obtenida  anadiendo  x  al  final  de  la  cola  c.  Por  ejemplo, 

I inserta  12  cl  C  [10,9,8,7,6,5,4,3,2,1,12] 


inserta  : :  a  ->  Cola  a  ->  Cola  a 

inserta  y  (C  (xs,ys))  =  C  (normaliza  (xs,y:ys)) 


(normaliza  p)  es  la  cola  obtenida  al  normalizar  el  par  de  listas  p.  Por  ejemplo, 

normaliza  ( []  ,  [2,5,3])  ([3,5,2]  ,  [] ) 

normaliza  ( [4] ,  [2,5,3] )  ^  (  [4] , [2,5,3] ) 


normaliza  : :  ( [a] ,  [a] )  ->  ( [a] , [a] ) 
normaliza  ( []  ,  ys)  =  (reverse  ys,  [] ) 
normaliza  p  =  p 


(primero  c)  es  el  primer  elemento  de  la  cola  c.  Por  ejemplo, 
I  primero  cl  ^  10 


primero  : :  Cola  a  ->  a 
primero  (C  (x:xs,ys))  =  x 

primero  _  =  error  "primero:  cola  vacia" 


(resto  c)  es  la  cola  obtenida  eliminando  el  primer  elemento  de  la  cola  c.  Por 
ejemplo. 


resto 

cl 

C  [9, 8, 7, 6, 5, 4, 3, 2,1] 

resto 

Cola  a  ->  Cola  a 

resto 

(C 

(x:xs,ys))  =  C  (normaliza 

(xs,ys)) 

resto 

(C 

([],[]))  =  error  "resto: 

cola  vacia" 

(esVacia  c)  se  verifica  si  c  es  la  cola  vacia.  Por  ejemplo, 

esVacia  cl  False 

esVacia  vacia  True 


esVacia  : :  Cola  a  ->  Bool 
esVacia  (C  (xs,_))  =  nuil  xs 


(elementos  c)  es  la  lista  de  los  elementos  de  la  cola  c  en  el  orden  de  la  cola.  Por 
ejemplo. 
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elementos  (C  ( [3,2] , [5,4,7] ))  [3, 2, 7, 4, 5] 


elementos::  Cola  a  ->  [a] 

elementos  (C  (xs,ys))  =  xs  ++  (reverse  ys) 


■  (igualColas  cl  c2)  se  verifica  si  las  colas  cl  y  c2  son  iguales. 

ghci>  igualColas  (C  (  [3,2] , [5,4,7] ))  (C  (  [3] ,  [5 ,4,7 , 2] ) ) 
True 

ghci>  igualColas  (C  (  [3,2] , [5,4,7] ))  (C  (  [] ,  [5,4,7 ,2 ,3] ) ) 
False 


igualColas  cl  c2  = 

valida  cl  &&  valida  c2  && 
elementos  cl  ==  elementos  c2 


■  Extension  de  la  igualdad  a  las  colas: 

instance  (Eq  a)  =>  Eq  (Cola  a)  where 
(==)  =  igualColas 


15.3.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

15.3.1.  Librerfas  auxiliares 

Importacion  de  librerfas 

■  Importacion  de  la  implementacion  de  las  colas  que  se  desea  comprobar. 

import  ColaConListas 
—  import  ColaConDosListas 


■  Importacion  de  librerfas  auxiliares 

import  Data. List 
import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 
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15.3.2.  Generador  de  colas 

Generador  de  colas 

■  genCola  es  un  generador  de  colas  de  enteros.  Por  ejemplo, 

ghci>  sample  genCola 
C  ([7,8, 4,3,7] , [5,3,3]) 

C  ( [1]  ,  [13] ) 


genCola  : :  Gen  (Cola  Int) 

genCola  =  frequency  [(1,  return  vacia) , 

(30,  do  n  <-  choose  (10,100) 

xs  <-  vectorOf  n  arbitrary 
return  (creaCola  xs))] 
where  creaCola  =  foldr  inserta  vacia 

instance  Arbitrary  (Cola  Int)  where 
arbitrary  =  genCola 


Correccion  del  generador  de  colas 

■  Propiedad:  Todo  los  elementos  generados  por  genCola  son  colas  vålidas. 

prop_genCola_correcto  : :  Cola  Int  ->  Bool 
prop_genCola_correcto  c  =  valida  c 


■  Comprobacion. 

ghci>  quickCheck  prop_genCola_correcto 
+++  OK,  passed  100  tests. 

15.3.3.  Especificacion  de  las  propiedades  de  las  colas 

■  El  primero  de  la  cola  obtenida  anadiendo  x  a  la  cola  vacia  es  x. 

prop_primero_inserta_vacia  : :  Int  ->  Bool 
prop_primero_inserta_vacia  x  = 

primero  (inserta  x  vacia)  ==  x 


Si  una  cola  no  estå  vacia,  su  primer  elemento  no  varia  al  anadirle  un  elemento. 
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prop_primero_inserta_no_vacia  : :  Cola  Int  ->  Int  ->  Int 

->  Bool 

prop_primero_inserta_no_vacia  c  x  y  = 
primero  (inserta  x  c’)  ==  primero  c’ 
where  c’  =  inserta  y  vacia 


■  El  resto  de  la  cola  obtenida  insertando  un  elemento  en  la  cola  vacia  es  la  cola  vacia. 

prop_resto_inserta_vacia  : :  Int  ->  Bool 
prop_resto_inserta_vacia  x  = 

resto  (inserta  x  vacia)  ==  vacia 


■  Las  operaciones  de  encolar  y  desencolar  conmutan. 

prop_resto_inserta_en_no_vacia  : :  Cola  Int  ->  Int  ->  Int 

->  Bool 

prop_resto_inserta_en_no_vacia  c  x  y  = 

resto  (inserta  x  c’)  ==  inserta  x  (resto  c’) 
where  c’  =  inserta  y  c 


■  vacia  es  una  cola  vacia. 

prop_vacia_es_vacia  : :  Bool 
prop_vacia_es_vacia  = 
esVacia  vacia 


■  La  cola  obtenida  insertando  un  elemento  no  es  vacia. 

prop_inserta_no_es_vacia  : :  Int  ->  Cola  Int  ->  Bool 
prop_inserta_no_es_vacia  x  c  = 
not  (esVacia  (inserta  x  c)) 


■  La  cola  vacia  es  vålida. 

prop_valida_vacia  : :  Bool 
prop_valida_vacia  =  valida  vacia 


Al  anadirle  un  elemento  a  una  cola  vålida  se  obtiene  otra  vålida. 
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prop_valida_inserta  : :  Cola  Int  ->  Int  ->  Property 
prop_valida_inserta  c  x  = 

valida  c  ==>  valida  (inserta  x  c) 


■  El  resto  de  una  cola  vålida  y  no  vacia  es  una  cola  vålida. 

prop_valida_resto  : :  Cola  Int  ->  Property 
prop_valida_resto  c  = 

valida  c  &&  not  (esVacia  c)  ==>  valida  (resto  c) 


15.3.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 

■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 

compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  TÅD  cola" 

[testGroup  "Propiedades  del  TAD  cola" 

[testProperty  "PI"  prop_primero_inserta_vacia, 
testProperty  "P2"  prop_primero_inserta_no_vacia, 
testProperty  "P3"  prop_resto_inserta_vacia, 
testProperty  "P4"  prop_resto_inserta_en_no_vacia, 
testProperty  "P5"  prop_vacia_es_vacia , 
testProperty  "P6"  prop_inserta_no_es_vacia, 
testProperty  "P7"  prop_valida_vacia, 
testProperty  "P8"  prop_valida_inserta, 
testProperty  "P9"  prop_valida_resto] ] 


Comprobacion  de  las  propiedades  de  las  colas 

ghci>  compruebaPropiedades 
Propiedades  del  TAD  cola 
PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 
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P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 

P7 :  [OK,  passed  100  tests] 

P8:  [OK,  passed  100  tests] 

P9:  [OK,  passed  100  tests] 

Properties  Total 
Passed  9  9 

Failed  0  0 

Total  9  9 
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Tema  16 


El  TAD  de  las  colas  de  prioridad 

16.1.  Especificacion  del  TAD  de  las  colas  de  prioridad 

16.1.1.  Signatura  del  TAD  colas  de  prioridad 

Descripcion  de  las  colas  de  prioridad 

■  Una  cola  de  prioridad  es  una  cola  en  la  que  cada  elemento  tiene  asociada  una 
prioridad.  La  operacion  de  extraccion  siempre  elige  el  elemento  de  menor  priori¬ 
dad. 

■  Ejemplos: 

•  La  cola  de  las  ciudades  ordenadas  por  su  distancia  al  destino  final. 

•  Las  colas  de  las  tareas  pendientes  ordenadas  por  su  fecha  de  terminacion. 

Signatura  de  las  colas  de  prioridad 

■  Signatura: 

vacia,  : :  Ord  a  =>  CPrioridad  a 

inserta,  : :  Ord  a  =>  a  ->  CPrioridad  a  ->  CPrioridad  a 
primero,  ::  Ord  a  =>  CPrioridad  a  ->  a 

resto,  ::  Ord  a  =>  CPrioridad  a  ->  CPrioridad  a 

esVacia,  : :  Ord  a  =>  CPrioridad  a  ->  Bool 

valida  : :  Ord  a  =>  CPrioridad  a  ->  Bool 

■  Descripcion  de  las  operaciones: 

•  vacia  es  la  cola  de  prioridad  vacia. 

•  (inserta  x  c)  anade  el  elemento  x  a  la  cola  de  prioridad  c. 
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•  (primero  c)  es  el  primer  elemento  de  la  cola  de  prioridad  c. 

•  (resto  c)  es  el  resto  de  la  cola  de  prioridad  c. 

•  (esVacia  c)  se  verifica  si  la  cola  de  prioridad  c  es  vacia. 

•  (valida  c)  se  verifica  si  c  es  una  cola  de  prioridad  vålida. 

16.1.2.  Propiedades  del  TAD  de  las  colas  de  prioridad 

1.  inserta  x  (inserta  y  c)  ==  inserta  y  (inserta  x  c) 

2.  primero  (inserta  x  vacia)  ==  x 

3.  Si  x  <=  y,  entonces 

primero  (inserta  y  (inserta  x  c)) 

==  primero  (inserta  x  c) 

4.  resto  (inserta  x  vacia)  ==  vacia 

5.  Si  x  <=  y,  entonces 

resto  (inserta  y  (inserta  x  c)) 

==  inserta  y  (resto  (inserta  x  c)) 

6.  esVacia  vacia 

7.  not  (esVacia  (inserta  x  c)) 


16.2.  Implementaciones  del  TAD  de  las  colas  de  prioridad 

16.2.1.  Las  colas  de  prioridad  como  listas 

■  Cabecera  del  modulo: 

module  ColaDePrioridadConListas 
(CPrioridad, 

vacia,  --  Ord  a  =>  CPrioridad  a 

inserta,  --  Ord  a  =>  a  ->  CPrioridad  a  ->  CPrioridad  a 
primero,  --  Ord  a  =>  CPrioridad  a  ->  a 

resto,  --  Ord  a  =>  CPrioridad  a  ->  CPrioridad  a 

esVacia,  --  Ord  a  =>  CPrioridad  a  ->  Bool 

valida  --  Ord  a  =>  CPrioridad  a  ->  Bool 

)  where 


Colas  de  prioridad  mediante  listas: 
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newtype  CPrioridad  a  =  CP  [a] 
deriving  (Eq,  Show) 


■  Ejemplo  de  cola  de  prioridad:  cpl  es  la  cola  de  prioridad  obtenida  anadiéndole  a 
la  cola  vacia  los  elementos  3, 1,  7,  2  y  9. 

| cpl  CP  [1,2, 3, 7,9] 

cpl  : :  CPrioridad  Int 

cpl  =  foldr  inserta  vacia  [3, 1,7, 2, 9] 


■  (valida  c)  se  verifica  si  c  es  una  cola  de  prioridad  vålida;  es  decir,  estå  ordenada 
crecientemente.  Por  ejemplo, 

valida  (CP  [1,3,5])  True 

valida  (CP  [1,5,3])  False 


valida  : :  Ord  a  =>  CPrioridad  a  ->  Bool 
valida  (CP  xs)  =  ordenada  xs 

where  ordenada  (x:y:zs)  =  x  <=  y  &&  ordenada  (y:zs) 
ordenada  _  =  True 


■  vacia  es  la  cola  de  prioridad  vacia.  Por  ejemplo, 
|  vacia  CP  [] 

vacia  : :  Ord  a  =>  CPrioridad  a 
vacia  =  CP  [] 


■  (inserta  x  c)  es  la  cola  obtenida  anadiendo  el  elemento  x  a  la  cola  de  prioridad 
c.  Por  ejemplo, 

cpl  CP  [1,2, 3, 7, 9] 

inserta  5  cpl  CP  [1,2, 3, 5, 7, 9] 


inserta  : :  Ord  a  =>  a  ->  CPrioridad  a  ->  CPrioridad  a 
inserta  x  (CP  q)  =  CP  (ins  x  q) 

where  ins  x  []  =  [x] 

ins  xr@(e:r’)  |  x<e  =x:r 

I  otherwise  =  e:ins  x  r’ 
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■  (primero  c)  es  el  primer  elemento  de  la  cola  de  prioridad  c. 

cpl  CP  [1,2,3,7,91 

primero  cpl  ^  1 


primero  : :  Ord  a  =>  CPrioridad  a  ->  a 
primero  (CP(x:_))  =  x 

primero  _  =  error  "primero:  cola  vacia" 


■  (rest o  c)  es  la  cola  de  prioridad  obtenida  eliminando  el  primer  elemento  de  la 
cola  de  prioridad  c.  Por  ejemplo, 

cpl  CP  [1,2,3,7,91 

resto  cpl  CP  [2,3,7,91 


resto  : :  Ord  a  =>  CPrioridad  a  ->  CPrioridad  a 
resto  (CP  (_:xs))  =  CP  xs 

resto  _  =  error  "resto:  cola  vacia" 


■  (esVacia  c)  se  verifica  si  la  cola  de  prioridad  c  es  vacia.  Por  ejemplo, 

esVacia  cpl  False 

esVacia  vacia  True 


esVacia  : :  Ord  a  =>  CPrioridad  a  ->  Bool 
esVacia  (CP  xs)  =  nuil  xs 


16.2.2.  Las  colas  de  prioridad  como  monticulos 

La  implementacion  de  las  colas  de  prioridad  como  monticulos  (ColaDePrioridadConMonticulos 
se  encuentra  en  en  el  tema  20  (El  TAD  de  los  monticulos). 


16.3.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

16.3.1.  Librerias  auxiliares 

■  Importacion  de  la  implementacion  de  colas  de  prioridad  que  se  desea  verificar. 
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import  ColaDePrioridadConListas 
—  ColaDePrioridadConMonticulos .hs 


■  Importacion  de  las  librerfas  de  comprobacion 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


16.3.2.  Generador  de  colas  de  prioridad 

■  genCPrioridad  es  un  generador  de  colas  de  prioridad.  Por  ejemplo, 

ghci>  sample  genCPrioridad 
CP  [-4] 

CP  [-2,-1, -1,2, 5] 


genCPrioridad  : :  (Arbitrary  a,  Num  a,  Ord  a) 

=>  Gen  (CPrioridad  a) 
genCPrioridad  =  do  xs  <-  listOf  arbitrary 

return  (foldr  inserta  vacia  xs) 


instance  (Arbitrary  a,  Num  a,  Ord  a) 

=>  Arbitrary  (CPrioridad  a)  where 
arbitrary  =  genCPrioridad 


Correccion  del  generador  de  colas  de  prioridad 

■  Las  colas  de  prioridad  producidas  por  genCPrioridad  son  vålidas. 

prop_genCPrioridad_correcto  : :  CPrioridad  Int  ->  Bool 
prop_genCPrioridad_correcto  c  =  valida  c 


■  Comprobacion. 

ghci>  quickCheck  prop_genCPrioridad_correcto 
+++  OK,  passed  100  tests. 
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16.3.3.  Especificacion  de  las  propiedades  de  las  colas  de  prioridad 

■  Si  se  anade  dos  elementos  a  una  cola  de  prioridad  se  obtiene  la  misma  cola  de 
prioridad  idependientemente  del  orden  en  que  se  anadan  los  elementos. 


prop_inserta_conmuta  : :  Int  ->  Int  ->  CPrioridad  Int 

->  Bool 

prop_inserta_conmuta  x  y  c  = 

inserta  x  (inserta  y  c)  ==  inserta  y  (inserta  x  c) 


■  La  cabeza  de  la  cola  de  prioridad  obtenida  anadiendo  un  elemento  x  a  la  cola  de 
prioridad  vacia  es  x. 

prop_primero_inserta_vacia  : :  Int  ->  CPrioridad  Int  ->  Bool 
prop_primero_inserta_vacia  x  c  = 
primero  (inserta  x  vacia)  ==  x 


■  El  primer  elemento  de  una  cola  de  prioridad  c  no  cambia  cuando  se  le  anade  un 
elemento  mayor  o  igual  que  aigun  elemento  de  c. 

prop_primero_inserta  : :  Int  ->  Int  ->  CPrioridad  Int 

->  Property 

prop_primero_inserta  x  y  c  = 

x  <=  y  ==> 

primero  (inserta  y  c’)  ==  primero  c’ 
where  c’  =  inserta  x  c 


■  El  resto  de  anadir  un  elemento  a  la  cola  de  prioridad  vacia  es  la  cola  vacia. 

prop_resto_inserta_vacia  : :  Int  ->  Bool 
prop_resto_inserta_vacia  x  = 

resto  (inserta  x  vacia)  ==  vacia 


■  El  resto  de  la  cola  de  prioridad  obtenida  anadiendo  un  elemento  y  a  una  cola  c  ’ 
(que  tiene  aigun  elemento  menor  o  igual  que  y)  es  la  cola  que  se  obtiene  anadiendo 
y  al  resto  de  c  ’ . 

prop_resto_inserta  : :  Int  ->  Int  ->  CPrioridad  Int 

->  Property 

prop_resto_inserta  x  y  c  = 
x  <=  y  ==> 
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resto  (inserta  y  c’)  ==  inserta  y  (resto  c’) 
where  c’  =  inserta  x  c 


■  vacia  es  una  cola  vada. 

prop_vacia_es_vacia  : :  Bool 

prop_vacia_es_vacia  =  esVacia  (vacia  : :  CPrioridad  Int) 


■  Si  se  anade  un  elemento  a  una  cola  de  prioridad  se  obtiene  una  cola  no  vacia. 


prop_inserta_no_es_vacia  : :  Int  ->  CPrioridad  Int 

->  Bool 

prop_inserta_no_es_vacia  x  c  = 
not  (esVacia  (inserta  x  c)) 


16.3.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 


■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 


compruebaPropiedades  = 

def aultMain 

[testGroup  "Correccion  del  generador" 

[testProperty 

"PO" 

prop_genCPrioridad_correcto] , 

testGroup  "Propiedade  de  colas  de  prioriad:" 

[testProperty 

"PI" 

prop_inserta_conmuta, 

testProperty 

"P2" 

prop_primero_inserta_vacia, 

testProperty 

"P3" 

prop_primero_inserta, 

testProperty 

"P4" 

prop_resto_inserta_vacia, 

testProperty 

"P5" 

prop_resto_inserta, 

testProperty 

"P6" 

prop_vacia_es_vacia, 

testProperty 

m  py  n 

prop_inserta_no_es_vacia] ] 

Comprobacion  de  las  propiedades  de  las  colas  de  prioridad 

ghci>  compruebaPropiedades 
Correccion  del  generador: 

PO:  [OK,  passed  100  tests] 
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Propiedades  de  colas  de  prioridad 
PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 

P7 :  [OK,  passed  100  tests] 

Properties  Total 
Passed  8  8 

Failed  0  0 

Total  8  8 
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El  TAD  de  los  conjuntos 

17.1.  Especificacion  del  TAD  de  los  conjuntos 

17.1.1.  Signatura  del  TAD  de  los  conjuntos 

■  Signatura: 

vacio,  ::  Conj  a 

inserta  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

elimina  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

pertenece  : :  Eq  a  =>  a  ->  Conj  a  ->  Bool 

esVacio  : :  Conj  a  ->  Bool 

■  Descripcion  de  las  operaciones: 

•  vacio  es  el  conjunto  vacio. 

•  (inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto 
c. 

•  (elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto 
c. 

•  (pertenece  x  c)  se  verifica  si  x  pertenece  al  conjunto  c. 

•  (esVacio  c)  se  verifica  si  c  es  el  conjunto  vacio. 

17.1.2.  Propiedades  del  TAD  de  los  conjuntos 

1.  inserta  x  (inserta  x  c)  ==  inserta  x  c 

2.  inserta  x  (inserta  y  c)  ==  inserta  y  (inserta  x  c) 

3.  not  (pertenece  x  vacio) 
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4.  pertenece  y  (inserta  x  c)  ==  (x==y)  I  I  pertenece  y  c 

5.  elimina  x  vacio  ==  vacio 

6.  Si  x  ==  y,  entonces 

elimina  x  (inserta  y  c)  ==  elimina  x  c 

7.  Si  x  /=  y,  entonces 

elimina  x  (inserta  y  c)  ==  inserta  y  (elimina  x  c) 

8.  esVacio  vacio 

9.  not  (esVacio  (inserta  x  c)) 

17.2.  Implementaciones  del  TAD  de  los  conjuntos 

17.2.1.  Los  conjuntos  como  listas  no  ordenadas  con  duplicados 

■  Cabecera  del  modulo: 


module  ConjuntoConListasNoOrdenadasConDuplicados 
(Conj , 

vacio , 

—  Conj  a 

inserta, 

--  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

elimina, 

--  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

pertenece , 

—  Eq  a  =>  a  ->  Conj  a  ->  Bool 

esVacio , 

)  where 

—  Conj  a  ->  Bool 

■  El  tipo  de  los  conjuntos. 


newtype  Conj  a  =  Cj  [a] 


■  Procedimiento  de  escritura  de  los  conjuntos. 

instance  Show  a  =>  Show  (Conj  a)  where 

showsPrec  _  (Cj  s)  cad  =  showConj  s  cad 

showConj  []  cad  =  showString  "{}"  cad 

showConj  (x:xs)  cad  = 

showChar  (shows  x  (showl  xs  cad)) 
where 
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showl  []  cad  =  showChar  ’}’  cad 

showl  (x:xs)  cad  =  showChar  (shows  x  (showl  xs  cad)) 


■  Ejemplo  de  conjunto:  cl  es  el  conjunto  obtenido  anadiéndole  al  conjunto  vaclo  los 
elementos  2,  5, 1,  3,  7,  5,  3,  2, 1,  9  y  0. 

ghci  >  cl 

{2,5, 1,3, 7, 5, 3, 2, 1,9,0} 


cl  : :  Conj  Int 

cl  =  foldr  inserta  vacio  [2, 5 , 1 ,3,7 ,5 ,3 , 2, 1 ,9 ,0] 


■  vacio  es  el  conjunto  vaclo.  Por  ejemplo, 

ghci>  vacio 

{} 


vacio  : :  Conj  a 
vacio  =  Cj  [] 


■  (inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto  c.  Por 
ejemplo, 

cl  ==  {2, 5, 1,3, 7, 5, 3, 2, 1,9,0} 

inserta  5  cl  ==  {5 , 2, 5 , 1 ,3 ,7, 5 ,3 ,2 , 1 , 9 ,0} 


inserta  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 
inserta  x  (Cj  ys)  =  Cj  (x:ys) 


■  (elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto  c. 
Por  ejemplo, 

cl  ==  {2, 5, 1,3, 7, 5, 3, 2, 1,9,0} 

elimina  3  cl  ==  {2 , 5, 1 ,7 ,5 , 2, 1 ,9 ,0} 


elimina  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 
elimina  x  (Cj  ys)  =  Cj  (filter  (/=  x)  ys) 


(pertenece  x  c)  se  verifica  si  x  pertenece  al  conjunto  c.  Por  ejemplo. 


cl 

pertenece  3  cl 
pertenece  4  cl 


{2,5, 1,3, 7, 5, 3, 2, 1,9,0} 

True 

False 


pertenece  : :  Eq  a  =>  a  ->  Conj  a  ->  Bool 
pertenece  x  (Cj  xs)  =  elem  x  xs 


(esVacio  c)  se  verifica  si  c  es  el  conjunto  vacio.  Por  ejemplo, 

esVacio  cl  False 

esVacio  vacio  True 


esVacio  : :  Conj  a  ->  Bool 
esVacio  (Cj  xs)  =  nuil  xs 


(subconjunto  cl  c2)  se  verifica  si  cl  es  un  subconjunto  de  c2.  Por  ejemplo, 

subconjunto  (Cj  [1,3, 2,1])  (Cj  [3, 1,3, 2])  True 

subconjunto  (Cj  [1,3,4,!])  (Cj  [3, 1,3, 2])  False 


subconjunto  : :  Eq  a  =>  Conj  a  ->  Conj  a  ->  Bool 
subconjunto  (Cj  xs)  (Cj  ys)  =  sublista  xs  ys 
where  sublista  []  _  =  True 

sublista  (x:xs)  ys  =  elem  x  ys  && 

sublista  xs  ys 


(igualConjunto  cl  c2)  se  verifica  si  los  conjuntos  cl  y  c2  son  iguales.  Por  ejem¬ 
plo, 

igualConjunto  (Cj  [1,3, 2,1])  (Cj  [3, 1,3, 2])  True 

igualConjunto  (Cj  [1,3,4,!])  (Cj  [3, 1,3, 2])  ^  False 


igualConjunto  : :  Eq  a  =>  Conj  a  ->  Conj  a  ->  Bool 
igualConjunto  cl  c2  = 

subconjunto  cl  c2  &&  subconjunto  c2  cl 


Los  conjuntos  son  comparables  por  igualdad. 


instance  Eq  a  =>  Eq  (Conj  a)  where 
(==)  =  igualConjunto 
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17.2.2.  Los  conjuntos  como  listas  no  ordenadas  sin  duplicados 

■  Cabecera  del  modulo. 

module  ConjuntoConListasNoOrdenadasSinDuplicados 
(Conj , 

vacio,  --  Conj  a 
esVacio,  —  Conj  a  ->  Bool 

pertenece,  —  Eq  a  =>  a  ->  Conj  a  ->  Bool 

inserta,  —  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

elimina  —  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 

)  where 


■  Los  conjuntos  como  listas  no  ordenadas  sin  repeticiones. 


newtype  Conj  a  =  Cj  [a] 


■  Procedimiento  de  escritura  de  los  conjuntos. 

instance  (Show  a)  =>  Show  (Conj  a)  where 
showsPrec  _  (Cj  s)  cad  =  showConj  s  cad 

showConj  []  cad  =  showString  "{}"  cad 

showConj  (x:xs)  cad  =  showChar  (shows  x  (showl  xs  cad)) 
where 

showl  []  cad  =  showChar  ’>’  cad 

showl  (x:xs)  cad  =  showChar  (shows  x  (showl  xs  cad)) 


■  Ejemplo  de  conjunto:  cl  es  el  conjunto  obtenido  anadiéndole  al  conjunto  vacio  los 
elementos  2,  5, 1,  3,  7,  5,  3,  2, 1,  9  y  0. 

ghci>  cl 
17,5,3,2, 1,9,0} 


cl  : :  Conj  Int 

cl  =  foldr  inserta  vacio  [2 , 5 , 1 ,3 ,7 ,5 ,3 , 2, 1 ,9 ,0] 


vacio  es  el  conjunto  vacio.  Por  ejemplo, 
ghci>  vacio 

O 


vacio  : :  Conj  a 
vacio  =  Cj  [] 


(esVacio  c)  se  verifica  si  c  es  el  conjunto  vacio.  Por  ejemplo, 

esVacio  cl  False 

esVacio  vacio  True 


esVacio  : :  Conj  a  ->  Bool 
esVacio  (Cj  xs)  =  nuli  xs 


(pertenece  x  c)  se  verifica  si  x  pertenece  al  conjunto  c.  Por  ejemplo, 

cl  ==  {2, 5, 1,3, 7, 5, 3, 2, 1,9,0} 

pertenece  3  cl  ==  True 

pertenece  4  cl  ==  False 


pertenece  : :  Eq  a  =>  a  ->  Conj  a  ->  Bool 
pertenece  x  (Cj  xs)  =  elem  x  xs 


(inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto  c.  Por 
ejemplo, 

inserta  4  cl  ==  {4, 7, 5, 3, 2, 1,9,0} 

inserta  5  cl  ==  {7, 5, 3, 2, 1,9,0} 


inserta  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 
inserta  x  s@(Cj  xs)  I  pertenece  x  s  =  s 

I  otherwise  =  Cj  (x:xs) 


(elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto  c. 
Por  ejemplo, 

[elimina  3  cl  ==  {7, 5, 2, 1,9,0} 

elimina  : :  Eq  a  =>  a  ->  Conj  a  ->  Conj  a 
elimina  x  (Cj  ys)  =  Cj  [y  I  y  <-  ys,  y  /=  x] 


(subconjunto  cl  c2)  se  verifica  si  cl  es  un  subconjunto  de  c2.  Por  ejemplo. 
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subconjunto  (Cj  [1,3,2])  (Cj  [3,1,2])  ^  True 

subconjunto  (Cj  [1,3,4,!])  (Cj  [1,3,2])  False 


subconjunto  : :  Eq  a  =>  Conj  a  ->  Conj  a  ->  Bool 
subconjunto  (Cj  xs)  (Cj  ys)  =  sublista  xs  ys 
where  sublista  []  _  =  True 

sublista  (x:xs)  ys  =  elem  x  ys  && 

sublista  xs  ys 


■  (igualConjunto  cl  c2)  se  verifica  si  los  conjuntos  cl  y  c2  son  iguales.  Por  ejem- 
plo, 

igualConjunto  (Cj  [3,2,1])  (Cj  [1,3,2])  ^  True 
igualConjunto  (Cj  [1,3,4])  (Cj  [1,3,2])  False 

igualConjunto  : :  Eq  a  =>  Conj  a  ->  Conj  a  ->  Bool 
igualConjunto  cl  c2  = 

subconjunto  cl  c2  &&  subconjunto  c2  cl 


■  Los  conjuntos  son  comparables  por  igualdad. 

instance  Eq  a  =>  Eq  (Conj  a)  where 
(==)  =  igualConjunto 


17.2.3.  Los  conjuntos  como  listas  ordenadas  sin  duplicados 

■  Cabecera  del  modulo 


module  ConjuntoConListasOrdenadasSinDuplicados 
(Conj , 

vacio , 

—  Conj  a 

esVacio , 

—  Conj  a  ->  Bool 

pertenece , 

—  Ord  a  =>  a  ->  Conj  a  ->  Bool 

inserta, 

—  Ord  a  =>  a  ->  Conj  a  ->  Conj  a 

elimina 

)  where 

—  Ord  a  =>  a  ->  Conj  a  ->  Conj  a 

■  Los  conjuntos  como  listas  ordenadas  sin  repeticiones. 

newtype  Conj  a  =  Cj  [a] 
deriving  Eq 
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■  Procedimiento  de  escritura  de  los  conjuntos. 

instance  (Show  a)  =>  Show  (Conj  a)  where 
showsPrec  _  (Cj  s)  cad  =  showConj  s  cad 

showConj  []  cad  =  showString  "{}"  cad 

showConj  (x:xs)  cad  =  showChar  ’{’  (shows  x  (showl  xs  cad)) 
where  showl  []  cad  =  showChar  ’ cad 

showl  (x:xs)  cad  =  showChar  (shows  x  (showl  xs  cad)) 


■  Ejemplo  de  conjunto:  cl  es  el  conjunto  obtenido  anadiéndole  al  conjunto  vaclo  los 
elementos  2,  5, 1,  3,  7,  5,  3,  2, 1,  9  y  0. 

ghci>  cl 
{0,1, 2, 3, 5, 7,9} 


cl  : :  Conj  Int 

cl  =  foldr  inserta  vacio  [2,5, 1 ,3,7,5 ,3,2, 1 ,9,0] 


■  vacio  es  el  conjunto  vaclo.  Por  ejemplo, 

ghci>  vacio 

O 


vacio  : :  Conj  a 
vacio  =  Cj  [] 


■  (esVacio  c)  se  verifica  si  c  es  el  conjunto  vaclo.  Por  ejemplo, 

esVacio  cl  False 

esVacio  vacio  True 


esVacio  : :  Conj  a  ->  Bool 
esVacio  (Cj  xs)  =  nuil  xs 


■  (pertenece  x  c)  se  verifica  si  x  pertenece  al  conjunto  c.  Por  ejemplo, 

cl  ==  {0,1, 2, 3, 5, 7,9} 

pertenece  3  cl  ==  True 
pertenece  4  cl  ==  False 
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pertenece  : :  Ord  a  =>  a  ->  Conj  a  ->  Bool 
pertenece  x  (Cj  ys)  =  elem  x  (takeWhile  (<=  x)  ys) 


■  (inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto  c.  Por 
ejemplo, 

cl  ==  {0,1, 2, 3, 5, 7,9} 

inserta  5  cl  ==  {0,1, 2, 3, 5, 7, 9} 

inserta  4  cl  ==  {0, 1,2, 3, 4, 5, 7, 9} 


inserta  : :  Ord  a  =>  a  ->  Conj  a  ->  Conj  a 

inserta  x  (Cj  s)  =  Cj  (agrega  x  s)  where 

agrega  x  []  =  [x] 

agrega  x  s@(y:ys)  I  x  >  y  =  y  :  (agrega  x  ys) 

I  x  <  y  =  x  :  s 

I  otherwise  =  s 


■  (elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto  c. 
Por  ejemplo, 

cl  ==  {0,1, 2, 3, 5, 7, 9} 

elimina  3  cl  ==  {0, 1,2, 5, 7, 9} 


elimina  : :  Ord  a  =>  a 

->  Conj  a  ->  Conj  a 

elimina  x  (Cj  s)  =  Cj 

(elimina  x  s)  where 

elimina  x  [] 

=  [] 

elimina  x  s@(y:ys) 

I  x  >  y  =  y  :  elimina  x  ys 

1  x  <  y  =  s 

1  otherwise  =  ys 

17.2.4.  Los  conjuntos  de  numeros  enteros  mediante  numeros  binarios 

■  Los  conjuntos  que  solo  contienen  numeros  (de  tipo  Int)  entre  0  y  n  —  1,  se  pueden 
representar  como  numeros  binarios  con  n  bits  donde  el  bit  i  (0  <  i  <  n)  es  1  syss 
el  numero  i  pertenece  al  conjunto.  Por  ejemplo, 

43210 

{3,4}  enbinarioes  11000  en  decimal  es  24 

{1, 2,3,4}  enbinarioes  11110  en  decimal  es  30 

{1,2,4}  enbinarioes  10110  en  decimal  es  22 


Cabecera  del  modulo 


module  ConjuntoConNumerosBinarios 

(Conj , 

vacio , 

--  Conj 

esVacio , 

--  Conj  ->  Bool 

pertenece , 

--  Int  ->  Conj  -> 

Bool 

inserta, 

--  Int  ->  Conj  -> 

Conj 

elimina 

)  where 

--  Int  ->  Conj  -> 

Conj 

Los  conjuntos  de  numeros  enteros  como  numeros  binarios. 


newtype  Conj  =  Cj  Int  deriving  Eq 


(conj2Lista  c)  es  la  lista  de  los  elementos  del  conjunto  c.  Por  ejemplo, 

conj2Lista  (Cj  24)  [3,4] 

conj2Lista  (Cj  30)  [1,2, 3, 4] 

conj2Lista  (Cj  22)  [1,2,4] 


conj2Lista  (Cj 

s)  =  c21  s 

0 

where 

c21  0  _ 

=  [] 

c21  n  i 

1  odd  n 

=  i  : 

c21 

(n  cdiv‘  2)  (i+1) 

1  otherwise 

i — 1 

CN 

CJ 

II 

(n 

‘div‘  2)  (i+1) 

Procedimiento  de  escritura  de  conjuntos. 


instance  Show  Conj  where 

showsPrec  _ 

s  cad  =  showConj 

(conj2Lista  s)  cad 

showConj  [] 

cad  =  showString 

"O"  cad 

showConj  (x:xs) 

cad  = 

showChar 

(shows  x  (showl  xs  cad)) 

where 

showl  [] 

cad  =  showChar 

’>’  cad 

showl  (x:xs)  cad  =  showChar 

(shows  x  (showl  xs  cad)) 

maxConj  es  el  måximo  numero  que  puede  pertenecer  al  conjunto.  Depende  de  la 
implementacion  de  Haskell.  Por  ejemplo. 
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maxConj  ^  29 


maxConj  : :  Int 
maxConj  = 

truncate  (logBase  2  (fromintegral  maxlnt))  -  1 
where  maxlnt  =  maxBound : : Int 


■  Ejemplo  de  conjunto:  cl  es  el  conjunto  obtenido  anadiéndole  al  conjunto  vaclo  los 
elementos  2,  5, 1,  3,  7,  5,  3,  2, 1,  9  y  0. 

ghci>  cl 
{0,1, 2, 3, 5, 7,9} 


cl  : :  Conj 

cl  =  foldr  inserta  vacio  [2 , 5 , 1 ,3 ,7 ,5 ,3 , 2, 1 ,9 ,0] 


■  vacio  es  el  conjunto  vaclo.  Por  ejemplo, 

ghci>  vacio 

O 


vacio  : :  Conj 
vacio  =  Cj  0 


■  (esVacio  c)  se  verifica  si  c  es  el  conjunto  vaclo.  Por  ejemplo, 

esVacio  cl  False 

esVacio  vacio  True 


esVacio  : :  Conj  ->  Bool 
esVacio  (Cj  n)  =  n  ==  0 


■  (pertenece  x  c)  se  verifica  si  x  pertenece  al  conjunto  c.  Por  ejemplo, 

cl  ==  {0,1, 2, 3,5,7, 9} 

pertenece  3  cl  ==  True 
pertenece  4  cl  ==  False 


pertenece  : :  Int  ->  Conj  ->  Bool 
pertenece  i  (Cj  s) 

I  (i>=0)  &&  (i<=maxConj)  =  odd  (s  cdivc  (2~i)) 

I  otherwise 

=  error  ("pertenece:  elemento  ilegal  ="  ++  show  i) 


(inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto  c.  Por 
ejemplo. 


cl 

inserta  5  cl 
inserta  4  cl 


{0,1,2, 3, 5,7,9} 
{0,1, 2, 3, 5, 7, 9} 
{0,1, 2, 3, 4, 5, 7,9} 


inserta  i  (Cj  s) 

I  (i>=0)  &&  (i<=maxConj)  =  Cj  (d’*e+m) 

I  otherwise 

=  error  ("inserta:  elemento  ilegal  ="  ++  show  i) 

where  (d,m)  =  divMod  s  e 

e  =  2~i 

d’  =  if  odd  d  then  d  else  d+1 


(elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto  c. 
Por  ejemplo, 

cl  ==  {0,1, 2, 3, 5, 7,9} 

elimina  3  cl  ==  {0,1, 2, 5, 7, 9} 


elimina  i  (Cj  s) 

I  (i>=0)  &&  (i<=maxConj)  =  Cj  (d’*e+m) 

I  otherwise 

=  error  ("elimina:  elemento  ilegal  ="  ++  show  i) 

where  (d,m)  =  divMod  s  e 

e  =  2~i 

d’  =  if  odd  d  then  d-1  else  d 
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17.3.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

17.3.1.  Librerfas  auxiliares 

■  Importacion  de  la  implementacion  de  los  conjuntos  que  se  desea  verificar. 

import  ConjuntoConListasNoOrdenadasConDuplicados 

—  import  ConjuntoConListasNoOrdenadasSinDuplicados 

—  import  ConjuntoConListasOrdenadasSinDuplicados 


■  Importacion  de  las  librerfas  de  comprobacion 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


17.3.2.  Generador  de  conjuntos 

■  genConjunto  es  un  generador  de  conjuntos.  Por  ejemplo, 

ghci>  sample  genConjunto 
{3, -2, -2, -3, -2,4} 

{-8, 0,4,6, -5, -2} 

O 


genConjunto  : :  Gen  (Conj  Int) 
genConjunto  =  do  xs  <-  listOf  arbitrary 

return  (foldr  inserta  vacio  xs) 

instance  Arbitrary  (Conj  Int)  where 
arbitrary  =  genConjunto 


17.3.3.  Especificacion  de  las  propiedades  de  los  conjuntos 

■  El  numero  de  veces  que  se  anada  un  elemento  a  un  conjunto  no  importa. 

prop_independencia_repeticiones  : :  Int  ->  Conj  Int 

->  Bool 
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prop_independencia_repeticiones  x  c  = 

inserta  x  (inserta  x  c)  ==  inserta  x  c 


■  El  orden  en  que  se  anadan  los  elementos  a  un  conjunto  no  importa. 


prop_independencia_del_orden  : :  Int  ->  Int  ->  Conj  Int 

->  Bool 

prop_independencia_del_orden  x  y  c  = 

inserta  x  (inserta  y  c)  ==  inserta  y  (inserta  x  c) 


■  El  conjunto  vado  no  tiene  elementos. 

prop_vacio_no_elementos : :  Int  ->  Bool 
prop_vacio_no_elementos  x  = 
not  (pertenece  x  vacio) 


■  Un  elemento  pertenece  al  conjunto  obtenido  anadiendo  x  al  conjunto  c  syss  es 
igual  a  x  o  pertenece  a  c. 

prop_pertenece_inserta  : :  Int  ->  Int  ->  Conj  Int  ->  Bool 
prop_pertenece_inserta  x  y  c  = 

pertenece  y  (inserta  x  c)  ==  (x==y)  I  I  pertenece  y  c 


■  Al  eliminar  cualquier  elemento  del  conjunto  vacio  se  obtiene  el  conjunto  vacio. 

prop_elimina_vacio  : :  Int  ->  Bool 
prop_elimina_vacio  x  = 

elimina  x  vacio  ==  vacio 


■  El  resultado  de  eliminar  x  en  el  conjunto  obtenido  anadiéndole  x  al  conjunto  c  es 
c  menos  x,  si  x  e  y  son  iguales  y  es  el  conjunto  obtenido  anadiéndole  y  a  c  menos 
x,  en  caso  contrario. 

prop_elimina_inserta  : :  Int  ->  Int  ->  Conj  Int  ->  Bool 
prop_elimina_inserta  x  y  c  = 
elimina  x  (inserta  y  c) 

==  if  x  ==  y  then  elimina  x  c 
else  inserta  y  (elimina  x  c) 


■  vacio  es  vacio. 
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prop_vacio_es_vacio 

:  :  Bool 

prop_vacio_es_vacio 

= 

esVacio  (vacio  : 

:  Conj  Int) 

■  Los  conjuntos  construidos  con  inserta  no  son  vacio. 

prop_inserta_es_no_vacio  : :  Int  ->  Conj  Int  ->  Bool 
prop_inserta_es_no_vacio  x  c  = 
not  (esVacio  (inserta  x  c)) 


17.3.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 

■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 

compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  TAD  conjunto:" 

[testProperty  "PI"  prop_vacio_es_vacio , 
testProperty  "P2"  prop_inserta_es_no_vacio , 
testProperty  "P3"  prop_independencia_repeticiones , 
testProperty  "P4"  prop_independencia_del_orden, 
testProperty  "P5"  prop_vacio_no_elementos , 
testProperty  "P6"  prop_pertenece_inserta, 
testProperty  "P7"  prop_elimina_vacio , 
testProperty  "P8"  prop_elimina_inserta] ] 


Comprobacion  de  las  propiedades  de  los  conjuntos 

ghci>  compruebaPropiedades 
Propiedades  del  TAD  conjunto: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 
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P7 :  [OK,  passed  100  tests] 
P8:  [OK,  passed  100  tests] 

Properties  Total 
Passed  8  8 

Failed  0  0 

Total  8  8 
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18.1.  El  tipo  predefinido  de  las  tablas  ("arrays") 

18.1.1.  La  clase  de  los  mdices  de  las  tablas 

■  La  clase  de  los  mdices  de  las  tablas  es  Ix. 

■  Ix  se  encuentra  en  la  librerfa  Data .  Ix 

■  Information  de  la  clase  Ix: 

ghci>  :info  Ix 
class  (Ord  a)  =>  Ix  a  where 
range  : :  (a,  a)  ->  [a] 
index  : :  (a,  a)  ->  a  ->  Int 
inRange  : :  (a,  a)  ->  a  ->  Bool 
rangeSize  : :  (a,  a)  ->  Int 
instance  Ix  Ordering  --  Defined  in  GHC.Arr 
instance  Ix  Integer  --  Defined  in  GHC.Arr 
instance  Ix  Int  --  Defined  in  GHC.Arr 
instance  Ix  Char  --  Defined  in  GHC.Arr 
instance  Ix  Bool  --  Defined  in  GHC.Arr 
instance  (Ix  a,  Ix  b)  =>  Ix  (a,  b) 

■  (range  m  n)  es  la  lista  de  los  mdices  desde  m  hasta  n,  en  el  orden  del  mdice.  Por 
ejemplo, 

range  (0,4)  [0,1, 2, 3, 4] 

range  (3,9)  [3,4,5,6,7,8,91 

range  (’b’,’f’)  ^  "bcdef" 
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range  ( (0,0) , (1,2))  [(0,0) , (0,1) , (0,2) , 

(1,0), (1,1), (1,2)] 

■  (index  (m,n)  i)  es  el  ordinal  del  mdice  i  dentro  del  rango  (m,n) .  Por  ejemplo, 

index  (3,9)  5  ^2 

index  (’b’,’f’)  ’e’  3 

index  ((0,0) , (1,2))  (1,1)  4 

■  (inRange  (m,n)  i)  se  verifica  si  el  mdice  i  estå  dentro  del  rango  limitado  por  m  y 
n.  Por  ejemplo, 

inRange  (0,4)  3  True 

inRange  (0,4)  7  False 

inRange  ( (0, 0) , (1 , 2) )  (1,1)  ^  True 

inRange  ( (0, 0) , (1 , 2) )  (1,5)  False 

■  (rangeSize  (m,n) )  es  el  numero  de  elementos  en  el  rango  limitado  por  m  y  n.  Por 
ejemplo, 

rangeSize  (3,9)  ^7 

rangeSize  (’b’,’f’)  5 

rangeSize  ((0,0) ,  (1,2))  6 

18.1.2.  El  tipo  predefinido  de  las  tablas  ("arrays") 

El  tipo  predefinido  de  las  tablas  ("arrays") 

■  La  libreria  de  las  tablas  es  Data .  Array. 

■  Para  usar  las  tablas  hay  que  escribir  al  principio  del  fichero 

import  Data. Array 


■  Al  importar  Data .  Array  también  se  importa  Data .  Ix. 

■  (Array  i  v)  es  el  tipo  de  las  tablas  con  mdice  en  i  y  valores  en  v. 

Creacion  de  tablas 

■  (array  (m,n)  ivs)  es  la  tabla  de  indices  en  el  rango  limitado  por  m  y  n  defini- 
da  por  la  lista  de  asociacion  ivs  (cuyos  elementos  son  pares  de  la  forma  (mdice, 
valor)).  Por  ejemplo. 
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ghci>  array  (1,3)  [(3,6) , (1,2) , (2,4)] 
array  (1,3)  [(1,2) , (2,4) , (3,6)] 
ghci>  array  (1,3)  [(i,2*i)  |  i  <-  [1..3]] 
array  (1,3)  [(1,2) , (2,4) , (3,6)] 

Ejemplos  de  definiciones  de  tablas 

■  (cuadrados  n)  es  un  vector  de  n+1  elementos  tal  que  su  elemento  i-ésimo  es  i2. 
Por  ejemplo, 

ghci>  cuadrados  5 

array  (0,5)  [(0 ,0)  ,  (1 , 1) ,  (2,4) ,  (3, 9)  ,  (4, 16) ,  (5, 25)] 


cuadrados  : :  Int  ->  Array  Int  Int 

cuadrados  n  =  array  (0,n)  [(i,i~2)  I  i  <-  [0..n]] 


■  v  es  un  vector  con  4  elementos  de  tipo  caråcter.  Por  ejemplo. 


v  : :  Array  Integer  Char 

v  =  array  (1,4)  [(3, ’c’) , (2, ’a’) ,  (1,’f’),  (4,’e5)] 


■  m  es  la  matriz  con  2  filas  y  3  columnas  tal  que  el  elemento  de  la  posicion  (i,j)  es  el 
producto  de  i  por  j. 

m  ::  Array  (Int,  Int)  Int 

m  =  array  ((1,1) , (2,3))  [( (i , j) , i* j) )  I  i<- [1 . . 2] , j<- [1 . .3] ] 


■  Una  tabla  estå  indefinida  si  aigun  indice  estå  fuera  de  rango. 

ghci>  array  (1,4)  [(i  ,  i*i)  I  i  <-  [1..4]] 
array  (1,4)  [(1 , 1)  , (2 ,4) , (3, 9) , (4, 16)] 
ghci>  array  (1,4)  [(i  ,  i*i)  I  i  <-  [1..5]] 
array  ***  Exception:  Error  in  array  index 
ghci>  array  (1,4)  [(i  ,  i*i)  I  i  <-  [1..3]] 
array  (1,4)  [(1,1) , (2,4) , (3,9) , (4,*** 

Exception:  (Array.!):  undefined  array  element 
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Descomposicion  de  tablas 

■  (t  !  i)  es  el  valor  del  indice  i  en  la  tabla  t.  Por  ejemplo, 
ghci>  v 

array  (1,4)  [(1, ’f ’) , (2, ’a’) , (3, ’c’) , (4, ’e’)] 
ghci>  v!3 
’  c  ’ 

ghci>  m 

array  ( (1 , 1) ,  (2 ,3) )  [( (1 , 1) ,  1) ,  ( (1 ,2)  ,2) ,  ( (1 ,3)  ,3) , 

((2,1), 2), ((2, 2), 4), ((2, 3), 6)] 

ghci>  m! (2,3) 

6 

■  (bounds  t)  es  el  rango  de  la  tabla  t.  Por  ejemplo, 

Jbounds  m  ((1,1) , (2,3)) 

■  (indices  t)  es  la  lista  de  los  indices  de  la  tabla  t.  Por  ejemplo, 

|  indices  m  [(1 , 1) ,  (1 , 2)  ,  (1 ,3)  ,  (2 , 1) ,  (2, 2) ,  (2 ,3)] 

■  (elems  t)  es  la  lista  de  los  elementos  de  la  tabla  t.  Por  ejemplo, 

|elems  m  ^  [1,2, 3, 2, 4, 6] 

■  (assocs  t)  es  la  lista  de  asociaciones  de  la  tabla  t.  Por  ejemplo, 
ghci>  assocs  m 

[((1,1)  ,1) , ((1,2) ,2) , ((1,3) ,3) , 

((2,1), 2), ((2, 2), 4), ((2, 3), 6)] 

Modificacion  de  tablas 

■  (t  //  ivs)  es  la  tab  la  t  asignåndole  a  los  indices  de  la  lista  de  asociacion  ivs  sus 
correspondientes  valores.  Por  ejemplo, 

ghci>  m  //  [((1,1) ,4) ,  ((2,2)  ,8)] 
array  ( (1 , 1) , (2 ,3) ) 

[((1,1), 4), ((1,2), 2), ((1,3), 3), 

((2,1), 2), ((2, 2), 8), ((2, 3), 6)] 

ghci>  m 

array  ( (1 , 1) , (2 ,3) ) 

[((1,1) ,1) , ((1,2) ,2) , ((1,3) ,3) , 

((2,1), 2), ((2, 2), 4), ((2, 3), 6)] 
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Definicion  de  tabla  por  recursion 

■  (f  ibs  n)  es  el  vector  formado  por  los  n  primeros  términos  de  la  sucesion  de  Fibo- 
nacci.  Por  ejemplo, 

ghci>  fibs  7 

array  (0,7)  [(0,1) , (1,1) , (2,2) , (3,3) , 

(4, 5), (5, 8), (6, 13), (7, 21)] 


fibs  : :  Int  ->  Array 

Int  Int 

fibs  n  =  a  where 

a  =  array  (0,n) 

([(0,1) 

,(1,1)]  ++ 

[(i ,a! 

(i-l)+a! (i-2) )  |  i  <-  [2..n]]) 

Otras  funciones  de  creacion  de  tablas 

■  (listArray  (m,n)  vs)  es  la  tabla  cuyo  rango  es  (m,n)  y  cuya  lista  de  valores  es 
vs.  Por  ejemplo, 

ghci>  listArray  (2,5)  "Roma" 

array  (2,5)  [(2, ’R’) , (3, ’o’) , (4, ’m3) , (5, ’a’)] 

ghci>  listArray  ( (1 , 2) , (2 ,4) )  [5.. 12] 

array  ( (1 , 2)  ,  (2 ,4) )  [( (1 , 2) ,  5) ,  ( (1 ,3)  ,6)  ,  ( (1 ,4)  ,7)  , 

((2, 2), 8), ((2, 3), 9), ((2, 4), 10)] 

Construccion  acumulativa  de  tablas 

■  (accumArray  f  v  (m,n)  ivs)  es  la  tabla  de  rango  (m,n)  tal  que  el  valor  del  indice 
i  se  obtiene  acumulando  la  aplicacion  de  la  funcion  f  al  valor  inicial  v  y  a  los 
valores  de  la  lista  de  asociacion  ivs  cuyo  indice  es  i.  Por  ejemplo, 

ghci>  accumArray  (+)  0  (1,3)  [(1,4) , (2,5) , (1,2)] 
array  (1,3)  [(1,6) , (2,5) , (3,0)] 
ghci>  accumArray  (*)  1  (1,3)  [(1,4) , (2,5) , (1,2)] 
array  (1,3)  [(1 ,8) , (2 ,5) , (3, 1)] 

■  (histograma  r  is)  es  el  vector  formado  contando  cuantas  veces  aparecen  los  ele¬ 
mentos  del  rango  r  en  la  lista  de  indices  is.  Por  ejemplo. 


ghci>  histograma  (0,5)  [3 , 1 ,4, 1 , 5,4, 2 ,7] 

array  (0,5)  [(0 ,0)  ,  (1 ,2) ,  (2, 1) ,  (3, 1)  ,  (4, 2)  ,  (5 , 1)] 
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histograma  ::  (Ix  a,  Num  b)  =>  (a,a)  ->  [a]  ->  Array  a  b 
histograma  r  is  = 

accumArray  (+)  0  r  [ (i , 1)  I  i  <-  is,  inRange  r  i] 


18.2.  Especificacion  del  TAD  de  las  tablas 

18.2.1.  Signatura  del  TAD  de  las  tablas 

■  Signatura: 

tabla  ::  Eq  i  =>  [(i,v)]  ->  Tabla  i  v 

valor  : :  Eq  i  =>  Tabla  i  v  ->  i  ->  v 

modif ica  : :  Eq  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 

■  Descripcion  de  las  operaciones: 

•  (tabla  ivs)  es  la  tabla  correspondiente  a  la  lista  de  asociacion  ivs  (que  es 
una  lista  de  pares  formados  por  los  indices  y  los  valores). 

•  (valor  t  i)  es  el  valor  del  indice  i  en  la  tabla  t. 

•  (modif  ica  (i,v)  t)  es  la  tabla  obtenida  modificando  en  la  tabla  t  el  valor 
de  i  por  v. 


18.2.2.  Propiedades  del  TAD  de  las  tablas 

1.  modifica  (i,v’)  (modifica  (i,v)  t) 

=  modifica  (i,v’)  t 

2.  Si  i  /=  i ’ , entonces 

modifica  (i’,v’)  (modifica  (i,v)  t) 

=  modifica  (i,v)  (modifica  (i’,v’)  t) 

3.  valor  (modifica  (i,v)  t)  i  =  v 

4.  Si  i  /=  i ’ , entonces 

valor  (modifica  (i,v)  (modifica  (k’,v’)  t))  i’ 
=  valor  (modifica  (k’,v’)  t)  i’ 
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18.3.  Implementaciones  del  TAD  de  las  tablas 

18.3.1.  Las  tablas  como  funciones 

■  Cabecera  del  modulo: 

module  TablaConFunciones 
(Tabla, 

tabla,  --  Eq  i  =>  [(i,v)]  ->  Tabla  i  v 
valor,  --  Eq  i  =>  Tabla  i  v  ->  i  ->  v 
modif ica  --  Eq  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 
)  where 


■  Las  tablas  como  funciones. 


newtype  Tabla  i  v  =  Tbl  (i  ->  v) 


■  Procedimiento  de  escritura. 

instance  Show  (Tabla  i  v)  where 

showsPrec  _  _  cad  =  showString  "«Una  tabla»"  cad 


■  Ejemplos  de  tablas: 


ti  =  tabla  [(i,f  i)  I  i  <-  [1..6]  ] 
where  f  x  I  x  <  3  =  x 

I  otherwise  =  3-x 


t2  =  tabla  [(4,89),  (1,90),  (2,67)] 


■  (valor  t  i)  es  el  valor  del  mdice  i  en  la  tabla  t.  Por  ejemplo. 


valor 

ti 

6 

valor 

t2 

2 

valor 

t2 

5 

-3 

67 

***  Exception:  fuera  de  rango 


valor  : :  Eq  i  =>  Tabla  i  v  ->  i  ->  v 
valor  (Tbl  f)  i  =  f  i 


(modif ica  (i,v)  t)  es  la  tabla  obtenida  modificando  en  la  tabla  t  el  valor  de  i 
por  v.  Por  ejemplo. 
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valor  (modifica  (6,9)  ti)  6^9 


modif ica  : :  Eq  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 
modifica  (i,v)  (Tbl  f)  =  Tbl  g 
where  g  j  I  j  ==  i  =  v 
I  otherwise  =  f  j 


■  (tabla  ivs)  es  la  tabla  correspondiente  a  la  lista  de  asociacion  ivs  (que  es  una 
lista  de  pares  formados  por  los  mdices  y  los  valores).  Por  ejemplo, 

ghci>  tabla  [(4,89),  (1,90),  (2,67)] 

«Una  tabla» 


tabla  ::  Eq  i  =>  [(i,v)]  ->  Tabla  i  v 
tabla  ivs  = 

foldr  modifica 

(Tbl  (\_  ->  error  "fuera  de  rango")) 
ivs 


18.3.2.  Las  tablas  como  listas  de  asociacion 

■  Cabecera  del  modulo 

module  TablaConListasDeAsociacion 
(Tabla, 

tabla,  --  Eq  i  =>  [(i,v)]  ->  Tabla  i  v 

valor,  --  Eq  i  =>  Tabla  i  v  ->  i  ->  v 

modifica  --  Eq  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 

)  where 


■  Las  tablas  como  listas  de  asociacion. 

newtype  Tabla  i  v  =  Tbl  [(i,v)] 
deriving  Show 


Ejemplos  de  tablas 
•  Definicion: 
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ti  =  tabla  [(i,f  i)  I  i  <-  [1..6]  ] 
where  f  x  I  x  <  3  =  x 

I  otherwise  =  3-x 

t2  =  tabla  [(4,89),  (1,90),  (2,67)] 

•  Evaluacion: 
ghci>  ti 

Tbl  [(1,1)  , (2,2) , (3,0) , (4,-1) , (5,-2) , (6,-3)] 
ghci>  t2 

Tbl  [(4, 89), (1,90), (2, 67)] 

■  (tabla  ivs)  es  la  tabla  correspondiente  a  la  lista  de  asociacion  ivs  (que  es  una 
lista  de  pares  formados  por  los  mdices  y  los  valores).  Por  ejemplo, 

ghci>  tabla  [(4,89) , (1,90) , (2,67)] 

Tbl  [(4, 89), (1,90), (2, 67)] 


tabla  ::  Eq  i  =>  [(i,v)]  ->  Tabla  i  v 
tabla  ivs  =  Tbl  ivs 


■  (valor  t  i)  es  el  valor  del  mdice  i  en  la  tabla  t.  Por  ejemplo, 

valor  ti  6  ^  -3 
valor  t2  2  ^  67 

valor  t2  5  ^  ***  Exception:  fuera  de  rango 


valor 

: :  Eq  i  =>  Tabla  i 

> 

A 

1 

•H 

A 

l 

> 

valor 

(Tbl  [] )  i  =  error 

"fuera  de  rango" 

valor 

(Tbl  ( ( j , v) : r) )  i 

1 

i  ==  J  =  v 

1 

otherwise  =  valor 

(Tbl  r)  i 

■  (modif ica  (i,x)  t)  es  la  tabla  obtenida  modificando  en  la  tabla  t  el  valor  de  i 
por  x.  Por  ejemplo, 

valor  ti  6  -3 

valor  (modifica  (6,9)  ti)  6^9 
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modif ica  : :  Eq  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 
modif  ica  p  (Tbl  [] )  =  (Tbl  [p] ) 
modifica  p’@(i,_)  (Tbl  (p@(j,_):r)) 

I  i  ==  j  =  Tbl  (pJ :r) 

I  otherwise  =  Tbl  (p:r’) 

where  Tbl  r’  =  modifica  p’  (Tbl  r) 


18.3.3.  Las  tablas  como  matrices 


■  Cabecera  del  modulo: 


module  TablaConMatrices 

(Tabla, 

tabla, 

--  Eq  i  => 

[(i,v)]  ->  Tabla  i  v 

valor , 

--  Eq  i  => 

Tabla  i  v  ->  i  ->  v 

modifica, 

--  Eq  i  => 

(i,v)  ->  Tabla  i  v  ->  Tabla  i  v 

tieneValor 

--  Ix  i  => 

Tabla  i  v  ->  i  ->  Bool 

)  where 

■  Importacion  de  la  librerfa  auxiliar: 


import  Data. Array 


■  Las  tablas  como  matrices. 


newtype  Tabla  i  v  =  Tbl  (Array  i  v)  deriving  (Show,  Eq) 


■  Ejemplos  de  tablas: 

•  Definition: 

ti  =  tabla  [(i,f  i)  I  i  <-  [1..6]  ] 
where  f  x  I  x  <  3  =  x 

I  otherwise  =  3-x 

t2  =  tabla  [(1 ,5) , (2,4) , (3,7)] 

•  Evaluacion: 

ghci>  ti 

Tbl  (array  (1,6)  [(1, 1) , (2,2) ,  (3,0) , 

(4,-1), (5, -2), (6, -3)]) 
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ghci>  t2 

Tbl  (array  (1,3)  [(1,5) , (2,4) , (3,7)] ) 

■  (tabla  ivs)  es  la  tabla  correspondiente  a  la  lista  de  asociacion  ivs  (que  es  una 
lista  de  pares  formados  por  los  indices  y  los  valores).  Por  ejemplo, 

ghci>  tabla  [(1,5) , (3,7) , (2,4)] 

Tbl  (array  (1,3)  [(1,5) , (2,4) , (3,7)] ) 


tabla  ::  Ix  i  =>  [(i,v)]  ->  Tabla  i  v 
tabla  ivs  =  Tbl  (array  (m,n)  ivs) 

where  indices  =  [i  I  (i,_)  <-  ivs] 
m  =  minimum  indices 

n  =  maximum  indices 


■  (valor  t  i)  es  el  valor  del  mdice  i  en  la  tabla  t.  Por  ejemplo, 

valor  ti  6  ^  -3 

valor  t2  2  ^  67 

valor  t2  5  ^  ***  Exception:  fuera  de  rango 


valor  : :  Ix  i  =>  Tabla  i  v  ->  i  ->  v 
valor  (Tbl  t)  i  =  t  !  i 


■  (modif ica  (i,x)  t)  es  la  tabla  obtenida  modificando  en  la  tabla  t  el  valor  de  i 
por  x.  Por  ejemplo, 

valor  ti  6  -3 

valor  (modifica  (6,9)  ti)  6^9 


modif ica  : :  Ix  i  =>  (i,v)  ->  Tabla  i  v  ->  Tabla  i  v 
modifica  p  (Tbl  t)  =  Tbl  (t  //  [p] ) 


■  (cotas  t)  son  las  cotas  de  la  tabla  t.  Por  ejemplo, 

t2  Tbl  (array  (1,3)  [(1,5) , (2,4) , (3,7)] ) 

cotas  t2  (1,3) 


cotas  ::  Ix  i  =>  Tabla  i  v  ->  (i, i) 
cotas  (Tbl  t)  =  bounds  t 
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■  (tieneValor  t  x)  se  verifica  si  x  es  una  clave  de  la  tabla  t.  Por  ejemplo, 

tieneValor  t2  3  True 

tieneValor  t2  4  ^  False 


tieneValor  : :  Ix  i  =>  Tabla  i  v  ->  i  ->  Bool 
tieneValor  t  =  inRange  (cotas  t) 


18.4.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

18.4.1.  Librerfas  auxiliares 

■  Importacion  de  la  implementacion  de  las  tablas  que  se  desea  verificar. 

import  TablaConListasDeAsociacion 

■  Importacion  de  las  librerfas  de  comprobacion. 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


18.4.2.  Generador  de  tablas 

■  genTabla  es  un  generador  de  tablas.  Por  ejemplo, 

ghci>  sample  genTabla 
Tbl  [(1,0)] 

Tbl  [(1,-1)] 

Tbl  [(1,0) ,(2,-1), (3,1), (4,1) ,(5,0)] 


genTabla  : :  Gen  (Tabla  Int  Int) 
genTabla  = 

do  x  <-  arbitrary 

xs  <-  listOf  arbitrary 

return  (tabla  (zip  [1..]  (x:xs))) 

instance  Arbitrary  (Tabla  Int  Int)  where 
arbitrary  =  genTabla 
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18.4.3.  Especificacion  de  las  propiedades  de  las  tablas 

■  Al  modificar  una  tabla  dos  veces  con  la  misma  clave  se  obtiene  el  mismos  resulta- 
do  que  modificarla  una  vez  con  el  ultimo  valor. 

prop_modif ica_modif ica_l  : :  Int  ->  Int  ->  Int 

->  Tabla  Int  Int  ->  Bool 
prop_modif ica_modif ica_l  i  v  v’  t  = 
modifica  (i,v’)  (modifica  (i,v)  t) 

==  modifica  (i,v’)  t 


■  Al  modificar  una  tabla  con  dos  pares  con  claves  distintas  no  importa  el  orden  en 
que  se  anadan  los  pares. 

prop_modif ica_modif ica_2  : :  Int  ->  Int  ->  Int  ->  Int 

->  Tabla  Int  Int  ->  Property 
prop_modif ica_modif ica_2  i  i’  v  v’  t  = 
i  /=  i’  ==> 

modifica  (i’,v’)  (modifica  (i,v)  t) 

==  modifica  (i,v)  (modifica  (i’,v’)  t) 


■  El  valor  de  la  clave  i  en  la  tabla  obtenida  anadiéndole  el  par  (i ,  v)  a  la  tabla  t  es 
v. 

prop_valor_modif ica_l  : :  Int  ->  Int 

->  Tabla  Int  Int  ->  Bool 
prop_valor_modif ica_l  i  v  t  = 

valor  (modifica  (i,v)  t)  i  ==  v 


■  Sean  i  e  j  dos  claves  distintas.  El  valor  de  la  clave  j  en  la  tabla  obtenida  anadién¬ 
dole  el  par  (i ,  v)  a  la  tabla  t  ’  (que  contiene  la  clave  j)  es  el  valor  de  j  en  t  ’ . 


prop_valor_modif ica_2  : :  Int  ->  Int  ->  Int  ->  Int 

->  Tabla  Int  Int  ->  Property 
prop_valor_modif ica_2  i  v  j  v’  t  = 
i  /=  j  ==> 

valor  (modifica  (i,v)  t’)  j  ==  valor  t’  j 
where  t’  =  modifica  (j,v’)  t 
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18.4.4.  Comprobacion  de  las  propiedades 

Defmicion  del  procedimiento  de  comprobacion 

■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion.  Por  ejemplo, 

compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  TAD  tabla" 

[testProperty  "PI"  prop_modif ica_modif ica_l , 
testProperty  "P2"  prop_modif ica_modif ica_2 , 
testProperty  "P3"  prop_valor_modif ica_l , 
testProperty  "P4"  prop_valor_modif ica_2] ] 


Comprobacion  de  las  propiedades  de  las  tablas 

Propiedades  del  TAD  tabla: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

Properties  Total 
Passed  4  4 

Failed  0  0 

Total  4  4 


Tema  19 


El  TAD  de  los  årboles  binarios  de 
busqueda 

19.1.  Especificacion  del  TAD  de  los  årboles  binarios  de 
busqueda 

19.1.1.  Signatura  del  TAD  de  los  årboles  binarios  de  busqueda 

Descripcion  de  los  årboles  binarios  de  busqueda 

■  Un  årbol  binario  de  busqueda  (ABB)  es  un  årbol  binario  tal  que  el  valor  de  cada 
nodo  es  mayor  que  los  valores  de  su  subårbol  izquierdo  y  es  menor  que  los  valo- 
res  de  su  subårbol  derecho  y,  ademås,  ambos  subårboles  son  årboles  binarios  de 
busqueda. 

■  Por  ejemplo,  al  almacenar  los  valores  de  [2,3,4,5,6,8,91  en  un  ABB  se  puede  obtener 
los  siguientes  ABB: 

5 

/  \ 

2  6  3 

\  \  / 

4  8  2 

/  \ 

3  9 

■  El  objetivo  principal  de  los  ABB  es  reducir  el  tiempo  de  acceso  a  los  valores. 

Signatura  del  TAD  de  los  årboles  binarios  de  busqueda 

Signatura: 


5 

/  \ 

8 

\  /  \ 

4  6  9 
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vacio  : :  ABB 

inserta  ::  (Ord  a,Show  a)  =>  a  ->  ABB  a  ->  ABB  a 

elimina  ::  (Ord  a,Show  a)  =>  a  ->  ABB  a  ->  ABB  a 

crea  ::  (Ord  a,Show  a)  =>  [a]  ->  ABB  a 

menor  : :  Ord  a  =>  ABB  a  ->  a 

elementos  ::  (Ord  a,Show  a)  =>  ABB  a  ->  [a] 

pertenece  ::  (Ord  a,Show  a)  =>  a  ->  ABB  a  ->  Bool 

valido  ::  (Ord  a,Show  a)  =>  ABB  a  ->  Bool 

Descripcion  de  las  operaciones: 

■  vacio  es  el  ABB  vacio. 

■  (pertenece  v  a)  se  verifica  si  v  es  el  valor  de  aigun  nodo  del  ABB  a. 

■  (inserta  v  a)  es  el  årbol  obtenido  anadiendo  el  valor  v  al  ABB  a,  si  no  es  uno  de 
sus  valores. 

■  (crea  vs)  es  el  ABB  cuyos  valores  son  vs. 

■  (elementos  a)  es  la  lista  de  los  valores  de  los  nodos  del  ABB  en  el  recorrido  inor- 
den. 

■  (elimina  v  a)  es  el  ABB  obtenido  eliminando  el  valor  v  del  ABB  a. 

■  (menor  a)  es  el  minirno  valor  del  ABB  a. 

■  (valido  a)  se  verifica  si  a  es  un  ABB  correcto. 

19.1.2.  Propiedades  del  TAD  de  los  årboles  binarios  de  busqueda 

1.  valido  vacio 

2.  valido  (inserta  v  a) 

3.  inserta  x  a  /=  vacio 

4.  pertenece  x  (inserta  x  a) 

5.  not  (pertenece  x  vacio) 

6.  pertenece  y  (inserta  x  a) 

==  (x  ==  y)  ||  pertenece  y  a 

7.  valido  (elimina  v  a) 

8.  elimina  x  (inserta  x  a)  ==  elimina  x  a 
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9.  valido  (crea  xs) 

10.  elementos  (crea  xs)  ==  sort  (nub  xs) 

11.  pertenece  v  a  ==  elem  v  (elementos  a) 

12.  V  x  G  elementos  a  (menor  a  <=  x) 


19.2.  Implementacion  del  TAD  de  los  årboles  binarios  de 
busqueda 

19.2.1.  Los  ABB  como  tipo  de  dato  algebraico 


Cabecera  del  modulo: 


module  ArbolBin 

(ABB, 

vacio, 

ABB 

inserta, 

(Ord 

a, Show 

a)  => 

a  -> 

ABB  a  -> 

ABB  a 

elimina, 

(Ord 

a, Show 

a)  => 

a  -> 

ABB  a  -> 

ABB  a 

crea, 

(Ord 

a, Show 

a)  => 

[a] 

->  ABB  a 

crea’ , 

(Ord 

a, Show 

a)  => 

[a] 

->  ABB  a 

menor, 

Ord  a  =>  ABB  a  -> 

a 

elementos,  — 

(Ord 

a, Show 

a)  => 

ABB 

a  ->  [a] 

pertenece,  -- 

(Ord 

a, Show 

a)  => 

a  -> 

ABB  a  -> 

Bool 

valido 

)  where 

(Ord 

a, Show 

a)  => 

ABB 

a  ->  Bool 

■  Los  ABB  como  tipo  de  dato  algebraico. 

data  Ord  a  =>  ABB  a  =  Vacio 

I  Nodo  a  (ABB  a)  (ABB  a) 
deriving  (Show,  Eq) 


■  Procedimiento  de  escritura  de  årboles  binarios  de  busqueda. 

instance  (Show  a,  Ord  a)  =>  Show  (ABB  a)  where 
show  Vacio  =  " 

show  (Modo  x  i  d)  = 

"  ("  ++  show  x  ++  show  i  ++  show  d  ++  ")" 
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■  abbl  y  abb2  son  årboles  de  busqueda  binarios. 
ghci>  abbl 

(5  (2  -  (4  (3  -  -)  -))  (6  -  (8  -  (9  -  -)))) 
ghci>  abb2 

(5  (2  -  (4  (3  -  -)  -))  (8  (6  -  (7  -  -))  (10  (9  -  -)  (11  -  -)))) 


abbl ,  abb2  : :  ABB  Int 

abbl  =  crea  (reverse  [5, 2, 6 ,4 ,8,3, 9] ) 

abb2  =  foldr  inserta  vacio 

(reverse  [5,2,4,3,8,6,7,10,9,11]) 


■  vacio  es  el  ABB  vacio. 

vacio  : :  ABB  a 
vacio  =  Vacio 


■  (pertenece  v  a)  se  verifica  si  v  es  el  valor  de  aigun  nodo  del  ABB  a.  Por  ejemplo, 

pertenece  3  abbl  ^  True 
pertenece  7  abbl  False 


pertenece  : : 

(Ord  a,Show  a) 

=>  a  ->  ABB  a  ->  Bool 

pertenece  v’ 

Vacio 

=  False 

pertenece  v’ 

(Nodo  v  i  d)  1 

v==v’  =  True 

1 

v’<v  =  pertenece  v’  i 

1 

v’>v  =  pertenece  v’  d 

■  (inserta  v  a)  es  el  årbol  obtenido  anadiendo  el  valor  v  al  ABB  a,  si  no  es  uno  de 
sus  valores.  Por  ejemplo, 

ghci>  inserta  7  abbl 

(5  (2  -  (4  (3  -  -)  -))  (6  -  (8  (7  -  -)  (9  -  -)))) 


inserta  ::  (Ord  a,Show  a)  =>  a  ->  ABB  a  ->  ABB  a 
inserta  v’  Vacio  =  Nodo  v’  Vacio  Vacio 
inserta  v’  (Nodo  vid) 

I  v’  ==  v  =  Nodo  vid 
I  v’  <  v  =  Nodo  v  (inserta  v’  i)  d 

I  otherwise  =  Nodo  v  i  (inserta  v’  d) 
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■  (crea  vs)  es  el  ABB  cuyos  valores  son  vs.  Por  ejemplo 

ghci>  crea  [3,7,2] 

(2  -  (7  (3  -  -)  -)) 


crea  ::  (Ord  a,Show  a)  =>  [a]  ->  ABB  a 
crea  =  foldr  inserta  Vacio 


■  (crea’  vs)  es  el  ABB  de  menor  profundidad  cuyos  valores  son  los  de  la  lista 
ordenada  vs.  Por  ejemplo, 

ghci>  crea’  [2,3,7] 

(3  (2  -  -)  (7  -  -)) 


crea’  ::  (Ord  a,Show  a)  =>  [a]  ->  ABB  a 
crea’  []  =  Vacio 

crea’  vs  =  Nodo  x  (crea’  11)  (crea’  12) 
where  n  =  length  vs  cdiv£  2 

11  =  take  n  vs 

(x:12)  =  drop  n  vs 


■  (elementos  a)  es  la  lista  de  los  valores  de  los  nodos  del  ABB  a  en  el  recorrido 
inorden.  Por  ejemplo, 

elementos  abbl  [2, 3, 4, 5, 6, 8, 9] 

elementos  abb2  [2,3,4,5,6,7,8,9,10,11] 


elementos  ::  (Ord  a,Show  a)  =>  ABB  a  ->  [a] 
elementos  Vacio  =  [] 
elementos  (Modo  v  i  d)  = 

elementos  i  ++  [v]  ++  elementos  d 


■  (elimina  v  a)  el  ABB  obtenido  eliminando  el  valor  v  del  ABB  a. 

ghci>  elimina  3  abbl 
(5  (2  -  (4  -  -))  (6  -  (8  -  (9  -  -)))) 
ghci>  elimina  2  abbl 
(5  (4  (3  -  -)  -)  (6  -  (8  -  (9  -  -)))) 


elimina  : :  (Ord  a,Show  a)  =>  a  ->  ÅBB  a  ->  ÅBB  a 
elimina  v’  Vacio  =  Vacio 
elimina  v’  (Modo  v  i  Vacio)  I  v’==v  =  i 

elimina  v’  (Modo  v  Vacio  d)  I  v’==v  =  d 

elimina  v’  (Modo  vid) 

I  v’<v  =  Nodo  v  (elimina  v’  i)  d 
I  v’>v  =  Modo  v  i  (elimina  v’  d) 

|  v ’ ==v  =  Nodo  k  i  (elimina  k  d) 

where  k  =  menor  d 


(menor  a)  es  el  minimo  valor  del  ABB  a.  Por  ejemplo, 
I  menor  abbl  2 


menor  : :  Ord  a  =>  ÅBB  a  ->  a 

menor  (Modo  v  Vacio  _)  =  v 

menor  (Modo  _  i  _)  =  menor  i 


(menorTodos  v  a)  se  verifica  si  v  es  menor  que  todos  los  elementos  del  ABB  a. 

menorTodos  : :  (Ord  a,  Show  a)  =>  a  ->  ABB  a  ->  Bool 
menorTodos  v  Vacio  =  True 

menorTodos  v  a  =  v  <  minimum  (elementos  a) 


(mayorTodos  v  a)  se  verifica  si  v  es  mayor  que  todos  los  elementos  del  ABB  a. 

mayorTodos  : :  (Ord  a,  Show  a)  =>  a  ->  ÅBB  a  ->  Bool 

mayorTodos  v  Vacio  =  True 

mayorTodos  v  a  =  v  >  maximum  (elementos  a) 


(valido  a)  se  verifica  si  a  es  un  ABB  correcto.  Por  ejemplo, 
I  valido  abbl  True 


valido  : :  (Ord  a,  Show  a)  =>  ÅBB  a  ->  Bool 
valido  Vacio  =  True 

valido  (Modo  v  i  d)  =  mayorTodos  v  i  &&  menorTodos  v  d 

&&  valido  i  &&  valido  d 
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19.3.  Comprobacion  de  la  implementacion  con  QuickCheck 

19.3.1.  Librerfas  auxiliares 

■  Importacion  de  la  implementacion  de  ABB. 

import  ArbolBin 


■  Importacion  de  librerfas  auxiliares. 

import  Data. List 
import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


19.3.2.  Generador  de  årboles  binarios  de  busqueda 

■  genABB  es  un  generador  de  årboles  binarios  de  busqueda.  Por  ejemplo, 
ghci>  sample  genABB 

(1  (-1  -  -)  -) 

(1  -  -) 

(-1  (-3  -  -)  (1  -  (4  -  -))) 


genABB  : :  Gen  (ABB  Int) 

genABB  =  do  xs  <-  listOf  arbitrary 

return  (foldr  inserta  vacio  xs) 

instance  Arbitrary  (ABB  Int)  where 
arbitrary  =  genABB 


■  Propiedad.  Todo  los  elementos  generados  por  genABB  son  årboles  binarios  de 
busqueda. 

prop_genABB_correcto  : :  ABB  Int  ->  Bool 
prop_genABB_correcto  =  valido 


listaOrdenada  es  un  generador  de  listas  ordenadas  de  numeros  enteros.  Por  ejem 
plo. 
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ghci>  sample  listaOrdenada 

[1] 

[-2, -1,0] 


listaOrdenada  : :  Gen  [Int] 
listaOrdenada  = 

frequency  [(1, return  [] ) , 

(4, do  xs  <-  orderedList 
n  <-  arbitrary 
return  (nub  ((case  xs  of 
[]  ->  n 

x:_  ->  n  £minc  x) 
:xs)))] 


■  (ordenada  xs)  se  verifica  si  xs  es  una  lista  ordenada  creciente.  Por  ejemplo, 

ordenada  [3,5,9]  ^  True 

ordenada  [3,9,5]  False 


ordenada  : :  [Int]  ->  Bool 

ordenada  xs  =  and  [x<y  I  (x,y)  <-  zip  xs  (tail  xs)] 


■  Propiedad.  El  generador  listaOrdenada  produce  listas  ordenadas. 

prop_listaOrdenada_correcta  : :  [Int]  ->  Property 
prop_listaOrdenada_correcta  xs  = 
forAll  listaOrdenada  ordenada 


19.3.3.  Especificacion  de  las  propiedades  de  los  årboles  de  busqueda 

■  vacio  es  un  ABB. 

prop_vacio_es_ABB  : :  Bool 
prop_vacio_es_ABB  = 

valido  (vacio  : :  ABB  Int) 


■  Si  a  es  un  ABB,  entonces  (inserta  v  a)  también  lo  es. 

prop_inserta_es_valida  : :  Int  ->  ABB  Int  ->  Bool 
prop_inserta_es_valida  v  a  = 
valido  (inserta  v  a) 
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■  El  årbol  que  resulta  de  anadir  un  elemento  a  un  ABB  es  no  vacio. 

prop_inserta_es_no_vacio  : :  Int  ->  ABB  Int  ->  Bool 
prop_inserta_es_no_vacio  x  a  = 
inserta  x  a  /=  vacio 


■  Para  todo  x  y  a,  x  es  un  elemento  de  (inserta  x  a) . 

prop_elemento_de_inserta  : :  Int  ->  ABB  Int  ->  Bool 
prop_elemento_de_inserta  x  a  = 
pertenece  x  (inserta  x  a) 


■  En  un  årbol  vacio  no  hay  ningun  elemento. 

prop_vacio_sin_elementos  : :  Int  ->  Bool 
prop_vacio_sin_elementos  x  = 
not  (pertenece  x  vacio) 


■  Los  elementos  de  (inserta  x  a)  son  x  y  los  elementos  de  a. 

prop_elementos_de_inserta  : :  Int  ->  Int 

->  ABB  Int  ->  Bool 
prop_elementos_de_inserta  x  y  a  = 
pertenece  y  (inserta  x  a) 

==  (x  ==  y)  ||  pertenece  y  a 


■  Si  a  es  un  ABB,  entonces  (elimina  v  a)  también  lo  es. 

prop_elimina_es_valida  : :  Int  ->  ABB  Int  ->  Bool 
prop_elimina_es_valida  v  a  = 
valido  (elimina  v  a) 


■  El  resultado  de  eliminar  el  elemento  x  en  (inserta  x  a)  es  (elimina  x  a). 

prop_elimina_agrega  : :  Int  ->  ABB  Int  ->  Bool 
prop_elimina_agrega  x  a  = 

elimina  (inserta  x  a)  ==  elimina  x  a 


(crea  xs)  es  un  ABB. 


prop_crea_es_valida  : :  [Int]  ->  Bool 
prop_crea_es_valida  xs  = 
valido  (crea  xs) 


Para  todas  las  listas  ordenadas  xs,  se  tiene  que  (crea’  xs)  es  un  ABB. 

prop_crea’_es_valida  ::  [Int]  ->  Property 
prop_crea’ _es_valida  xs  = 

forAll  listaOrdenada  (valido  .  crea’) 


(elementos  (crea  xs) )  es  igual  a  la  lista  xs  ordenada  y  sin  repeticiones. 

prop_elementos_crea  : :  [Int]  ->  Bool 
prop_elementos_crea  xs  = 

elementos  (crea  xs)  ==  sort  (nub  xs) 


Si  ys  es  una  lista  ordenada  sin  repeticiones,  entonces  (elementos  (crea’  ys) )  es 
igual  ys. 

prop_elementos_crea’  : :  [Int]  ->  Bool 
prop_elementos_crea’  xs  = 

elementos  (crea’  ys)  ==  ys 
where  ys  =  sort  (nub  xs) 


Un  elemento  pertenece  a  (elementos  a)  syss  es  un  valor  de  a. 

prop_en_elementos  : :  Int  ->  ABB  Int  ->  Bool 
prop_en_elementos  v  a  = 

pertenece  v  a  ==  elem  v  (elementos  a) 


(menor  a)  es  menor  o  igual  que  todos  los  elementos  de  ABB  a. 

prop_menoresMinimo  : : Int  ->  ABB  Int  ->  Bool 
prop_menoresMinimo  v  a  = 

and  [menor  a  <=  v  I  v  <-  elementos  a] 
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19.3.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 


■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 


compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  tipo  ABB" 

[testProperty 

M  P 1 11 

prop_listaOrdenada_correcta, 

testProperty 

"P2" 

prop_orderedList_correcta, 

testProperty 

"P3" 

prop_vacio_es_ABB , 

testProperty 

"  P4  " 

prop_inserta_es_valida, 

testProperty 

"P5" 

prop_inserta_es_no_vacio , 

testProperty 

"P6" 

prop_elemento_de_inserta, 

testProperty 

1 1  py  n 

prop_vacio_sin_elementos , 

testProperty 

"P8" 

prop_elementos_de_inserta, 

testProperty 

"P9" 

prop_elimina_es_valida, 

testProperty 

"P10" 

prop_elimina_agrega, 

testProperty 

"Pil " 

prop_crea_es_valida, 

testProperty 

"P12" 

prop_crea’ _es_valida, 

testProperty 

"P13" 

prop_elementos_crea, 

testProperty 

"P14" 

prop_elementos_crea’ , 

testProperty 

"P15" 

prop_en_elementos , 

testProperty 

"P16" 

prop_menoresMinimo] , 

testGroup  "Correccion  del  generador" 

[testProperty 

"P18" 

prop_genABB_correcto] ] 

Comprobacion  de  las  propiedades  de  los  ABB 

ghci>  compruebaPropiedades 
Propiedades  del  tipo  ABB: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 

P7 :  [OK,  passed  100  tests] 

P8:  [OK,  passed  100  tests] 
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P9:  [OK,  passed  100  tests] 
PIO:  [OK,  passed  100  tests] 

Pli:  [OK,  passed  100  tests] 

P12:  [OK,  passed  100  tests] 

P13:  [OK,  passed  100  tests] 

P14:  [OK,  passed  100  tests] 

P15:  [OK,  passed  100  tests] 

P16:  [OK,  passed  100  tests] 


Correccion  del  generador: 


P18 : 

[OK, 

passed  100  tests] 

Properties  Total 

Passed 

17 

17 

Failed 

0 

0 

Total 

17 

17 

Tema  20 


El  TAD  de  los  monticulos 


20.1.  Especificacion  del  TAD  de  los  montfculos 

20.1.1.  Signatura  del  TAD  de  los  montfculos 

Descripcion  de  los  monticulos 

Un  monticulo  es  un  årbol  binario  en  el  que  los  valores  de  cada  nodo  es  menor  o 
igual  que  los  valores  de  sus  hijos.  Por  ejemplo, 

1  1 

/  \  /  \ 

/  \  /  \ 

2  6  3  6 

/  \  /  \  /  \  /  \ 

3897  4297 

el  de  la  izquierda  es  un  monticulo,  pero  el  de  la  derecha  no  lo  es. 

Signatura  del  TAD  de  los  monticulos 

Signatura: 

vacio  : :  Ord  a  =>  Monticulo  a 

inserta  : :  Ord  a  =>  a  ->  Monticulo  a  ->  Monticulo  a 
menor  : :  Ord  a  =>  Monticulo  a  ->  a 

resto  : :  Ord  a  =>  Monticulo  a  ->  Monticulo  a 

esVacio  : :  Ord  a  =>  Monticulo  a  ->  Bool 

valido  : :  Ord  a  =>  Monticulo  a  ->  Bool 

Descripcion  de  las  operaciones: 

■  vacio  es  el  monticulo  vacio. 
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■  (inserta  x  m)  es  el  monticulo  obtenido  anadiendo  el  elemento  x  al  monticulo  m. 

■  (menor  m)  es  el  menor  elemento  del  monticulo  m. 

■  (rest o  m)  es  el  monticulo  obtenido  eliminando  el  menor  elemento  del  monticulo 

m. 

■  (esVacio  m)  se  verifica  si  m  es  el  monticulo  vacio. 

■  (valido  m)  se  verifica  si  m  es  un  monticulo;  es  decir,  es  un  årbol  binario  en  el  que 
los  valores  de  cada  nodo  es  menor  o  igual  que  los  valores  de  sus  hijos. 

20.1.2.  Propiedades  del  TAD  de  los  montfculos 

1.  esVacio  vacio 

2.  valido  (inserta  x  m) 

3.  not  (esVacio  (inserta  x  m)) 

4.  not  (esVacio  m)  ==>  valido  (resto  m) 

5.  resto  (inserta  x  vacio)  ==  vacio 

6.  x  <=  menor  m  ==>  resto  (inserta  x  m)  ==  m 

7.  Si  m  es  no  vacio  y  x  >  menor  m,  entonces 
resto  (inserta  x  m)  ==  inserta  x  (resto  m) 

8.  esVacio  m  I  I 
esVacio  (resto  m)  I  I 
menor  m  <=  menor  (resto  m) 

20.2.  Implementacion  del  TAD  de  los  montfculos 

20.2.1.  Los  montfculos  como  tipo  de  dato  algebraico 

■  Cabecera  del  modulo: 

module  Monticulo 
(Monticulo, 

vacio,  --  Ord  a  =>  Monticulo  a 

inserta,  --  Ord  a  =>  a  ->  Monticulo  a  ->  Monticulo  a 

menor,  --  Ord  a  =>  Monticulo  a  ->  a 

resto,  --  Ord  a  =>  Monticulo  a  ->  Monticulo  a 
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esVacio,  --  Ord  a  =>  Monticulo  a  ->  Bool 
valido  --  Ord  a  =>  Monticulo  a  ->  Bool 
)  where 


■  Libreria  auxiliar: 


import  Data. List  (sort) 


■  Los  monticulos  como  tipo  de  dato  algebraico 

data  Ord  a  =>  Monticulo  a 
=  Vacio 

I  M  a  Int  (Monticulo  a)  (Monticulo  a) 
deriving  Show 


■  La  forma  de  los  monticulos  no  vacio  es  (M  v  r  i  d)  donde 

•  v  es  el  valor  de  la  rafz  del  monticulo. 

•  r  es  el  rango  del  monticulo;  es  decir,  la  menor  distancia  de  la  ralz  a  un  mon¬ 
ticulo  vacio. 

•  i  es  el  submontlculo  izquierdo  y 

•  f  es  el  submontlculo  derecho. 

Ejemplos  de  monticulos 

■  Definicion: 

ml,  m2,  m3  ::  Monticulo  Int 
ml  =  foldr  inserta  vacio  [6, 1,4,8] 
m2  =  foldr  inserta  vacio  [7,5] 
m3  =  mezcla  ml  m2 


■  Representacion: 

ml  m2 

(1,2)  (5,1) 

/  \  / 

(4,1)  (6,1)  (7,1) 

/ 

(8,1) 


m3 

(1,2) 

/  \ 

/  \ 

(5,2)  (4,1) 

/  \  / 
(7,1)  (6,1)  (8,1) 
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■  vacio  es  el  monticulo  vacio. 

vacio  : :  Ord  a  =>  Monticulo  a 
vacio  =  Vacio 


■  (rango  m)  es  el  rango  del  monticulo  m;  es  decir,  la  menor  distancia  a  un  monticulo 
vacio.  Por  ejemplo, 

rango  ml  ^  2 

rango  m2  ^  1 


rango  : :  Ord  a  =>  Monticulo  a  ->  Int 
rango  Vacio  =  0 

rango  (M  _  r  _  _)  =  r 


(creaM  x  a  b)  es  el  monticulo  creado  a  partir  del  elemento  x  y  los  montlculos  a  y 
b.  Se  supone  que  x  es  menor  o  igual  que  el  minimo  de  a  y  de  b.  Por  ejemplo, 

ghci>  ml 

M  1  2  (M  4  1  (M  8  1  Vacio  Vacio)  Vacio)  (M  6  1  Vacio  Vacio) 
ghci>  m2 

M  5  1  (M  7  1  Vacio  Vacio)  Vacio 
ghci>  creaM  0  ml  m2 

M  0  2  (M  1  2  (M  4  1  (M  8  1  Vacio  Vacio)  Vacio)  (M  6  1  Vacio  Vacio)) 

(M  5  1  (M  7  1  Vacio  Vacio)  Vacio) 


creaM  : :  Ord  a  =>  a  ->  Monticulo  a  ->  Monticulo  a  ->  Monticulo  a 

creaM  x  a  b  I  rango  a  >=  rango  b  =  M  x  (rango  b  +  1)  ab 

I  otherwise  =  M  x  (rango  a  +  1)  b  a 


■  (mezcla  ml  m2)  es  el  monticulo  obtenido  mezclando  los  montlculos  ml  y  m2.  Por 
ejemplo, 

ghci>  mezcla  ml  m2 

M  1  2  (M  5  2  (M  7  1  Vacio  Vacio)  (M  6  1  Vacio  Vacio)) 

(M  4  1  (M  8  1  Vacio  Vacio)  Vacio) 


mezcla  : :  Ord  a  =>  Monticulo  a  ->  Monticulo  a 

->  Monticulo  a 

mezcla  m  Vacio  =  m 
mezcla  Vacio  m  =  m 
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mezcla  ml@(M  x  _  al  bl)  m2@(M  y  _  a2  b2) 

I  x  <=  y  =  creaM  x  al  (mezcla  bl  m2) 
I  otherwise  =  creaM  y  a2  (mezcla  ml  b2) 


■  (inserta  x  m)  es  el  monticulo  obtenido  anadiendo  el  elemento  x  al  monticulo  m. 
Por  ejemplo, 

ghci>  ml 

K  1  2  (M  4  1  (M  8  1  Vacio  Vacio)  Vacio) 

(M  6  1  Vacio  Vacio) 
ghci>  inserta  3  ml 
M  1  2 

(M  4  1  (M  8  1  Vacio  Vacio)  Vacio) 

(M  3  1  (M  6  1  Vacio  Vacio)  Vacio) 


inserta  : :  Ord  a  =>  a  ->  Monticulo  a  ->  Monticulo  a 
inserta  x  m  =  mezcla  (M  x  1  Vacio  Vacio)  m 


■  (menor  m)  es  el  menor  elemento  del  monticulo  m.  Por  ejemplo, 

menor  ml  ^  1 

menor  m2  5 


menor  : :  Ord  a  =>  Monticulo  a  ->  a 
menor  (M  x  _  _  _)  =  x 

menor  Vacio  =  error  "menor:  monticulo  vacio" 


■  (rest o  m)  es  el  monticulo  obtenido  eliminando  el  menor  elemento  del  monticulo 
m.  Por  ejemplo, 

ghci>  resto  ml 

M  4  2  (M  8  1  Vacio  Vacio)  (M  6  1  Vacio  Vacio) 


resto  : :  Ord  a  =>  Monticulo  a  ->  Monticulo  a 
resto  Vacio  =  error  "resto:  monticulo  vacio" 

resto  (M  x  _  a  b)  =  mezcla  a  b 


(esVacio  m)  se  verifica  si  m  es  el  monticulo  vacio. 


esVacio  : :  Ord  a  =>  Monticulo  a  ->  Bool 
esVacio  Vacio  =  True 
esVacio  _  =  False 


(valido  m)  se  verifica  si  m  es  un  monticulo;  es  decir,  es  un  årbol  binario  en  el  que 
los  valores  de  cada  nodo  es  menor  o  igual  que  los  valores  de  sus  hijos.  Por  ejemplo, 

valido  ml  True 

valido  (M  3  5  (M  2  1  Vacio  Vacio)  Vacio)  False 


valido  : :  Ord  a  =>  Monticulo 
valido  Vacio  =  True 
valido  (M  x  _  Vacio  Vacio)  = 
valido  (M  x  ml@(M  xl  ni  al 
x  <=  xl  &&  valido  ml 
valido  (M  x  _  Vacio  m2@(M  x2 
x  <=  x2  &&  valido  m2 
valido  (M  x  ml@(M  xl  ni  al 
x  <=  xl  &&  valido  ml  && 
x  <=  x2  &&  valido  m2 


a  ->  Bool 
True 

bl)  Vacio)  = 
n2  a2  b2))  = 

bl)  m2@ (M  x2  n2  a2  b2))  = 


(elementos  m)  es  la  lista  de  los  elementos  del  monticulo  m.  Por  ejemplo, 
lelementos  ml  ^  [1,4, 8,6] 


elementos  : :  Ord  a  =>  Monticulo  a  ->  [a] 
elementos  Vacio  =  [] 

elementos  (M  x  _  a  b)  =  x  :  elementos  a  ++  elementos  b 


(equivMonticulos  ml  m2)  se  verifica  si  los  monticulos  ml  y  m2  tienen  los  mismos 
elementos.  Por  ejemplo, 

ghci>  ml 

M  1  2  (M  4  1  (M  8  1  Vacio  Vacio)  Vacio) 

(M  6  1  Vacio  Vacio) 

ghci>  let  ml’  =  foldr  inserta  vacio  [6,8,4, 1] 

M  1  2  (M  4  1  Vacio  Vacio) 

(M  6  1  (M  8  1  Vacio  Vacio)  Vacio) 
ghci>  equivMonticulos  ml  ml’ 

True 
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equivMonticulos  : :  Ord  a  =>  Monticulo  a  ->  Monticulo  a 

->  Bool 

equivMonticulos  ml  m2  = 

sort  (elementos  ml)  ==  sort  (elementos  m2) 


■  Los  monticulos  son  comparables  por  igualdad. 

instance  Ord  a  =>  Eq  (Monticulo  a)  where 
(==)  =  equivMonticulos 


20.3.  Comprobacion  de  la  implementacion  con  QuickCheck 

20.3.1.  Librerias  auxiliares 

■  Importacion  de  la  implementacion  a  verificar. 
import  Monticulo 


■  Importacion  de  librerias  auxiliares. 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


20.3.2.  Generador  de  monticulos 

■  (creaMonticulo  xs)  es  el  monticulo  correspondiente  a  la  lista  xs.  Por  ejemplo, 

ghci>  creaMonticulo  [6, 1,4,8] 

H  1  2  (M  4  1  (M  8  1  Vacio  Vacio)  Vacio) 

(M  6  1  Vacio  Vacio) 
ghci>  creaMonticulo  [6,8,4, 1] 

M  1  2  (M  4  1  Vacio  Vacio) 

(M  6  1  (M  8  1  Vacio  Vacio)  Vacio) 


creaMonticulo  : :  [Int]  ->  Monticulo  Int 
creaMonticulo  =  foldr  inserta  vacio 


genMonticulo  es  un  generador  de  monticulos.  Por  ejemplo. 
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ghci>  sample  genMonticulo 
VacioM 

M  (-1)  1  (M  1  1  VacioM  VacioM)  VacioM 


genMonticulo  : :  Gen  (Monticulo  Int) 
genMonticulo  =  do  xs  <-  listOf  arbitrary 

return  (creaMonticulo  xs) 

instance  Arbitrary  (Monticulo  Int)  where 
arbitrary  =  genMonticulo 


Correccion  del  generador  de  monticulos 

■  Prop.:  genMonticulo  genera  monticulos  vålidos. 

prop_genMonticulo  : :  Monticulo  Int  ->  Bool 
prop_genMonticulo  m  =  valido  m 


Comprobacion: 

ghci>  quickCheck  prop_genMonticulo 
+++  OK,  passed  100  tests. 

Generador  de  monticulos  no  vados 

■  monticuloNV  es  un  generador  de  monticulos  no  vado.  Por  ejemplo, 

ghci>  sample  monticuloNV 
M  0  1  VacioM  VacioM 

Mil  (Mil  (Mil  VacioM  VacioM)  VacioM)  VacioM 


monticuloNV  : 

:  Gen  (Monticulo  Int) 

monticuloNV  = 

do  xs  <-  listOf  arbitrary 

x  <-  arbitrary 

return  (creaMonticulo  (x:xs)) 
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Correccion  del  generador  de  monticulos  no  vacfos 

■  Prop.:  monticuloNV  genera  monticulos  no  vacio. 

prop_monticuloNV  : :  Monticulo  Int  ->  Property 
prop_monticuloNV  m  = 
foråll  monticuloNV 

(\m  ->  (valido  m)  &&  not  (esVacio  m)) 


Comprobacion: 

ghci>  quickCheck  prop_monticuloNV 
+++  OK,  passed  100  tests. 

20.3.3.  Especificacion  de  las  propiedades  de  los  monticulos 

■  vacio  es  un  monticulo. 

prop_vacio_es_monticulo  : :  Bool 
prop_vacio_es_monticulo  = 

esVacio  (vacio  : :  Monticulo  Int) 


■  inserta  produce  monticulos  vålidos. 

prop_inserta_es_valida  : :  Int  ->  Monticulo  Int  ->  Bool 
prop_inserta_es_valida  x  m  = 
valido  (inserta  x  m) 


■  Los  monticulos  creados  con  inserta  son  no  vacio. 

prop_inserta_no_vacio  : :  Int  ->  Monticulo  Int  ->  Bool 
prop_inserta_no_vacio  x  m  = 

not  (esVacio  (inserta  x  m)) 


■  Al  borrar  el  menor  elemento  de  un  monticulo  no  vacio  se  obtiene  un  monticulo 
vålido. 

prop_resto_es_valida  : :  Monticulo  Int  ->  Property 
prop_resto_es_valida  m  = 

foråll  monticuloNV  (\m  ->  valido  (resto  m)) 
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■  El  resto  de  (inserta  x  m)  es  m  si  m  es  el  monticulo  vado  o  x  es  menor  o  igual  que 
el  menor  elemento  de  m  y  es  (inserta  x  (resto  m) ),  en  caso  contrario. 

prop_resto_inserta  : :  Int  ->  Monticulo  Int  ->  Bool 
prop_resto_inserta  x  m  = 
resto  (inserta  x  m) 

==  if  esVacio  m  I  I  x  <=  menor  m  then  m 
else  inserta  x  (resto  m) 


■  (menor  m)  es  el  menor  elemento  del  monticulo  m. 

prop_menor_es_minimo  : :  Monticulo  Int  ->  Bool 
prop_menor_es_minimo  m  = 

esVacio  m  I  I  esVacio  (resto  m)  I  I 
menor  m  <=  menor  (resto  m) 


20.3.4.  Comprobacion  de  las  propiedades 

Definicion  del  procedimiento  de  comprobacion 

■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion. 

compruebaPropiedades  = 
def aultMain 

[testGroup  "Propiedades  del  TAD  monticulo" 

[testProperty  "PI"  prop_genMonticulo , 
testProperty  "P2"  prop_monticuloNV, 
testProperty  "P3"  prop_vacio_es_monticulo , 
testProperty  "P4"  prop_inserta_es_valida , 
testProperty  "P5"  prop_inserta_no_vacio , 
testProperty  "P6"  prop_resto_es_valida, 
testProperty  "P7"  prop_resto_inserta, 
testProperty  "P8"  prop_menor_es_minimo] ] 


Comprobacion  de  las  propiedades  de  los  monticulos 

ghci>  compruebaPropiedades 
Propiedades  del  TAD  monticulo: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 
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P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 

P7 :  [OK,  passed  100  tests] 

P8:  [OK,  passed  100  tests] 

Properties  Total 
Passed  8  8 

Failed  0  0 

Total  8  8 

20.4.  Implementacion  de  las  colas  de  prioridad  mediante 
monticulos 

20.4.1.  Las  colas  de  prioridad  como  monticulos 

Cabecera  del  modulo: 

module  ColaDePrioridadConMonticulos 
(CPrioridad, 

vacia,  --  Ord  a  =>  CPrioridad  a 

inserta,  --  Ord  a  =>  a  ->  CPrioridad  a  ->  CPrioridad  a 
primero,  --  Ord  a  =>  CPrioridad  a  ->  a 

resto,  --  Ord  a  =>  CPrioridad  a  ->  CPrioridad  a 

esVacia,  --  Ord  a  =>  CPrioridad  a  ->  Bool 

valida  --  Ord  a  =>  CPrioridad  a  ->  Bool 

)  where 


Importacion  cualificada: 


import  qualified  Monticulo  as  M 


■  Descripcion  de  las  operaciones: 

•  vacia  es  la  cola  de  prioridad  vacia. 

•  (inserta  x  c)  anade  el  elemento  x  a  la  cola  de  prioridad  c. 

•  (primero  c)  es  el  primer  elemento  de  la  cola  de  prioridad  c. 

•  (resto  c)  es  el  resto  de  la  cola  de  prioridad  c. 


•  (esVacia  c)  se  verifica  si  la  cola  de  prioridad  c  es  vacia. 

•  (valida  c)  se  verifica  si  c  es  una  cola  de  prioridad  vålida. 

Las  colas  de  prioridad  como  monticulos. 

newtype  CPrioridad  a  =  CP  (M.Monticulo  a) 
deriving  (Eq,  Show) 


Ejemplo  de  cola  de  prioridad: 

cpl  : :  CPrioridad  Int 

cpl  =  foldr  inserta  vacia  [3, 1,7, 2, 9] 


Evaluacion: 

ghci>  cpl 
CP  (M  1  2 

(M  2  2 

(M  9  1  VacioM  VacioM) 

(M  7  1  VacioM  VacioM)) 

(M  3  1  VacioM  VacioM)) 

vacia  es  la  cola  de  prioridad  vacia.  Por  ejemplo, 
I vacia  CP  Vacio 


vacia  : :  Ord  a  =>  CPrioridad  a 
vacia  =  CP  M. vacio 


(inserta  x  c)  anade  el  elemento  x  a  la  cola  de  prioridad  c.  Por  ejemplo, 

ghci>  inserta  5  cpl 
CP  (M  1  2 

(M  2  2 

(M  9  1  VacioM  VacioM) 

(M  7  1  VacioM  VacioM)) 

(M  3  1 

(M  5  1  VacioM  VacioM)  VacioM)) 


inserta  : :  Ord  a  =>  a  ->  CPrioridad  a  ->  CPrioridad  a 
inserta  v  (CP  c)  =  CP  (M. inserta  v  c) 
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■  (primero  c)  es  la  cabeza  de  la  cola  de  prioridad  c.  Por  ejemplo, 
I  primero  cpl  ^  1 


primero  : :  Ord  a  =>  CPrioridad  a  ->  a 
primero  (CP  c)  =  M.menor  c 


■  (rest o  c)  elimina  la  cabeza  de  la  cola  de  prioridad  c.  Por  ejemplo, 

ghci>  resto  cpl 
CP  (M  2  2 

(M  9  1  VacioM  VacioM) 

(M  3  1 

(M  7  1  VacioM  VacioM)  VacioM)) 


resto  : :  Ord  a  =>  CPrioridad  a  ->  CPrioridad  a 
resto  (CP  c)  =  CP  (M. resto  c) 


■  (esVacia  c)  se  verifica  si  la  cola  de  prioridad  c  es  vacia.  Por  ejemplo, 

esVacia  cpl  False 

esVacia  vacia  True 


esVacia  : :  Ord  a  =>  CPrioridad  a  ->  Bool 
esVacia  (CP  c)  =  M.esVacio  c 


■  (valida  c)  se  verifica  si  c  es  una  cola  de  prioridad  vålida.  En  la  representacion 
mediante  monticulo  todas  las  colas  de  prioridad  son  vålidas. 

valida  : :  Ord  a  =>  CPrioridad  a  ->  Bool 
valida  _  =  True 
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Tema  21 


El  TAD  de  los  polinomios 

21.1.  Especificacion  del  TAD  de  los  polinomios 

21.1.1.  Signatura  del  TAD  de  los  polinomios 

Signatura  del  TAD  de  los  polinomios 

Signatura: 

polCero  : :  Polinomio  a 

esPolCero  : :  Num  a  =>  Polinomio  a  ->  Bool 

consPol  : :  Num  a  =>  Int  ->  a  ->  Polinomio  a  ->  Polinomio  a 

grado  : :  Polinomio  a  ->  Int 

coefLider  : :  Num  a  =>  Polinomio  a  ->  a 

restoPol  : :  Polinomio  a  ->  Polinomio  a 

Descripcion  de  las  operaciones: 

■  polCero  es  el  polinomio  cero. 

■  (esPolCero  p)  se  verifica  si  p  es  el  polinomio  cero. 

■  (consPol  n  b  p)  es  el  polinomio  bxn  +  p. 

■  (grado  p)  es  el  grado  del  polinomio  p. 

■  (coefLider  p)  es  el  coeficiente  lider  del  polinomio  p. 

■  (restoPol  p)  es  el  resto  del  polinomio  p. 
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Ejemplos  de  polinomios 

Ejemplos  de  polinomios  que  se  usarån  en  lo  sucesivo. 

■  Definicion: 

ejPoll,  ejPol2,  ejPol3,  ejTerm: :  Polinomio  Int 

ejPoll  =  consPol  4  3  (consPol  2  (-5)  (consPol  0  3  polCero)) 

ejPol2  =  consPol  5  1  (consPol  2  5  (consPol  1  4  polCero)) 

ejPol3  =  consPol  4  6  (consPol  1  2  polCero) 

ejTerm  =  consPol  1  4  polCero 


■  Evaluacion: 


ejPoll 

3*x~4 

+  -5*x~2  +  3 

ejPol2 

'■'o* 

x'-S  + 

5*x~2  +  4*x 

e jPol3 

'■'o* 

6*x~4 

+  2*x 

ejTerm 

4*x 

21.1.2.  Propiedades  del  TAD  de  los  polinomios 

1.  esPolCero  polCero 

2.  n  >  grado  p  &&  b  /=  0  ==> 

not  (esPolCero  (consPol  n  b  p)) 

3.  consPol  (grado  p)  (coefLider  p)  (restoPol  p)  ==  p 

4.  n  >  grado  p  &&  b  /=  0  ==> 
grado  (consPol  n  b  p)  ==  n 

5.  n  >  grado  p  &&  b  /=  0  ==> 
coefLider  (consPol  n  b  p)  ==  b 

6.  n  >  grado  p  &&  b  /=  0  ==> 
restoPol  (consPol  n  b  p)  ==  p 

21.2.  Implementacion  del  TAD  de  los  polinomios 

21.2.1.  Los  polinomios  como  tipo  de  dato  algebraico 


Cabecera  del  modulo: 
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module  PolRepTDA 
(  Polinomio, 
polCero, 
esPolCero,  -- 
consPol, 

grado, 

coefLider,  -- 
restoPol 
)  where 


Polinomio  a 

Num  a  =>  Polinomio  a  ->  Bool 
(Num  a)  =>  Int  ->  a  ->  Polinomio  a 
->  Polinomio  a 
Polinomio  a  ->  Int 
Num  a  =>  Polinomio  a  ->  a 
Polinomio  a  ->  Polinomio  a 


■  Representamos  un  polinomio  mediante  los  constructores  ConsPol  y  PolCero. 

■  Por  ejemplo,  el  polinomio 
| 6x~4  -5x~2  +  4x  -7 

se  representa  por 

ConsPol  4  6 

(ConsPol  2  (-5) 

(ConsPol  1  4 

(ConsPol  0  (-7)  PolCero))) 

■  El  tipo  de  los  polinomios. 

data  Polinomio  a  =  PolCero 

I  ConsPol  Int  a  (Polinomio  a) 
deriving  Eq 


Procedimiento  de  escritura  de  los  polinomios. 


instance  Num  a  => 
show  PolCero 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 
show  (ConsPol 


Show  (Polinomio  a)  where 
=  "0" 


0  b  PolCero) 
0  b  p) 

1  b  PolCero) 
1  b  p) 

n  1  PolCero) 
n  b  PolCero) 
n  1  p) 
n  b  p) 


show  b 

concat  [show  b,"  +  ",show  p] 

concat  [show  b,"*x"] 

concat  [show  b,"*x  +  ",show  p] 

concat  ["x~",show  n] 

concat  [show  b, "*x~" ,show  n] 

concat  ["x~",show  n,"  +  ",show  p] 

concat  [show  b, "*x~" ,show  n,"  +  ",show  p] 


polCero  es  el  polinomio  cero.  Por  ejemplo. 


ghci>  polCero 
0 


polCero  : :  Polinomio  a 
polCero  =  PolCero 


(esPolCero  p)  se  verifica  si  p  es  el  polinomio  cero.  Por  ejemplo, 

esPolCero  polCero  True 

esPolCero  ejPoll  False 


esPolCero  : :  Polinomio  a  ->  Bool 
esPolCero  PolCero  =  True 
esPolCero  _  =  False 


(c onsPol  n  b  p)  es  el  polinomio  bxn  +  p.  Por  ejemplo. 


ejPol2 
consPol  3  0 
consPol  3  2 
consPol  6  7 
consPol  4  7 
consPol  5  7 


ejPol2  ^ 
polCero 
ejPol2  ^ 
ejPol2  ^ 
ejPol2 


x~5  +  5*x~2  + 
x~5  +  5*x~2  + 
2*x~3 

7*x~6  +  x~5  + 
x~5  +  7*x~4  + 
8*x~5  +  5*x~2 


4*x 

4*x 

5*x~2  +  4*x 
5*x~2  +  4*x 
+  4*x 


consPol  : :  Num  a  =>  Int  ->  a  ->  Polinomio  a  ->  Polinomio  a 
consPol  _  0  p  =  p 

consPol  n  b  PolCero  =  ConsPol  n  b  PolCero 
consPol  n  b  (ConsPol  m  c  p) 

I  n  >  m  =  ConsPol  n  b  (ConsPol  m  c  p) 

I  n  <  m  =  ConsPol  m  c  (consPol  n  b  p) 

I  b+c  ==  0  =  p 

I  otherwise  =  ConsPol  n  (b+c)  p 


(grado  p)  es  el  grado  del  polinomio  p.  Por  ejemplo, 

ejPol3  6*x~4  +  2*x 

grado  ejPol3  4 
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grado::  Polinomio  a  ->  Int 
grado  PolCero  =  0 
grado  (ConsPol  n  _  _)  =  n 


■  (coef  Lider  p)  es  el  coeficiente  lider  del  polinomio  p.  Por  ejemplo, 
I coefLider  ejPo!3  6 


coefLider: :  Num  t  =>  Polinomio  t  ->  t 
coefLider  PolCero  =  0 

coefLider  (ConsPol  _  b  _)  =  b 


■  (restoPol  p)  es  el  resto  del  polinomio  p.  Por  ejemplo. 


ejPol3 

restoPol  ejPol3 
ejPol2 

restoPol  ejPol2  ^ 


6*x~4  +  2*x 
2*x 

x~5  +  5*x'"2  +  4*x 
5*x~2  +  4*x 


restoPol  : :  Polinomio  t  ->  Polinomio  t 
restoPol  PolCero  =  PolCero 

restoPol  (ConsPol  _  _  p)  =  p 


21.2.2.  Los  polinomios  como  listas  dispersas 

Cabecera  del  modulo 


module  PolRepDispersa 

(  Polinomio, 

polCero , 

--  Polinomio  a 

esPolCero , 

--  Num  a  =>  Polinomio  a  ->  Bool 

consPol, 

--  (Num  a)  =>  Int  ->  a  ->  Polinomio  a 

->  Polinomio  a 

grado , 

--  Polinomio  a  ->  Int 

coefLider, 

--  Num  a  =>  Polinomio  a  ->  a 

restoPol 

--  Polinomio  a  ->  Polinomio  a 

)  where 

Representaremos  un  polinomio  por  la  lista  de  sus  coeficientes  ordenados  en  orden 
decreciente  segun  el  grado. 
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■  Por  ejemplo,  el  polinomio 
1 6x"~4  -5x~2  +  4x  -7 

se  representa  por  la  lista 
|  [6, 0,-2, 4,-7] 

■  Los  polinomios  como  listas  dispersas. 

data  Polinomio  a  =  Pol  [a] 

deriving  Eq 


Procedimiento  de  escritura  de  los  polinomios. 


instance  Num  t  =>  Show  (Polinomio  t)  where 
show  pol 

I  esPolCero  pol  =  "0" 


n  ==  0  && 

esPolCero 

P  = 

show  a 

O 

II 

II 

£ 

= 

concat 

[show  a, 

II  _|_  II 

n  ==  1  && 

esPolCero 

P  = 

concat 

[show  a, 

"*x"] 

n  ==  1 

= 

concat 

[show  a, 

"  *X  + 

a  ==  1  && 

esPolCero 

P  = 

concat 

["x~",show  n] 

esPolCero 

P 

= 

concat 

[show  a, 

"*X~" 

a  ==  1 

= 

concat 

["x~",show  n, 

otherwise 

= 

concat 

[show  a, 

"*X~" 

where  n  =  grado  pol 

a  =  coefLider  pol 
p  =  restoPol  pol 


, show  p] 

",show  p] 

,  show  n] 

"  +  ",show  p] 
,show  n,"  +  " 


, show  p] 


■  polCero  es  el  polinomio  cero.  Por  ejemplo, 

ghci>  polCero 
0 


polCero  : :  Polinomio  a 
polCero  =  Pol  [] 


(esPolCero  p)  se  verifica  si  p  es  el  polinomio  cero.  Por  ejemplo, 

esPolCero  polCero  True 

esPolCero  ejPoll  False 
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■  (consPol  n  b  p)  es  el  polinomio  bxn  +  p.  Por  ejemplo, 

e jPol2  ^  x~5  +  5*x~2  +  4*x 

consPol  3  0  ejPol2  ^  x~5  +  5*x~2  +  4*x 

consPol  3  2  polCero  2*x~3 

consPol  6  7  ejPol2  ^  7*x~6  +  x~5  +  5*x~2  +  4*x 

consPol  4  7  ejPol2  ^  x~5  +  7*x~4  +  5*x~2  +  4*x 

consPol  5  7  ejPol2  ^  8*x~5  +  5*x~2  +  4*x 

consPol  : :  Num  a  =>  Int  ->  a  ->  Polinomio  a  ->  Polinomio  a 
consPol  _  0  p  =  p 
consPol  n  b  p@(Pol  xs) 

I  esPolCero  p  =  Pol  (b:replicate  n  0) 

I  n  >  m  =  Pol  (b: (replicate  (n-m-1)  0)++xs) 

I  n  <  m  =  consPol  m  c  (consPol  n  b  (restoPol  p)) 

I  b+c  ==  0  =  Pol  (dropWhile  (==0)  (tail  xs)) 

I  otherwise  =  Pol  ((b+c):tail  xs) 

where 

c  =  coefLider  p 
m  =  grado  p 


■  (grado  p)  es  el  grado  del  polinomio  p.  Por  ejemplo, 

ejPol3  6*x~4  +  2*x 

grado  ejPol3  4 


■  (coefLider  p)  es  el  coeficiente  lider  del  polinomio  p.  Por  ejemplo, 
I  coefLider  ejPol3  6 
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■  (restoPol  p)  es  el  resto  del  polinomio  p.  Por  ejemplo, 

ejPol3  6*x~4  +  2*x 

restoPol  ejPol3  2*x 

ejPol2  x~5  +  5*x~2  +  4*x 

restoPol  ejPol2  5*x~2  +  4*x 

restoPol  : :  Num  t  =>  Polinomio  t  ->  Polinomio  t 

restoPol  (Pol  [] )  =  polCero 

restoPol  (Pol  [_] )  =  polCero 

restoPol  (Pol  (_:b:as)) 

I  b  ==  0  =  Pol  (dropWhile  (==0)  as) 

I  otherwise  =  Pol  (b:as) 

21.2.3.  Los  polinomios  como  listas  densas 


Cabecera  del  modulo. 


■  Representaremos  un  polinomio  mediante  una  lista  de  pares  (grado,coef),  ordena- 
dos  en  orden  decreciente  segun  el  grado.  Por  ejemplo,  el  polinomio 

| 6x~4  -5x~2  +  4x  -7 

se  representa  por  la  lista  de  pares 

I [(4, 6), (2, -5), (1,4), (0,-7)] . 


Tema  21.  El  TAD  de  los  polinomios 


251 


■  Los  polinomios  como  listas  densas. 

data  Polinomio  a  =  Pol  [(Int,a)] 

deriving  Eq 


Procedimiento  de  escritura  de  polinomios 


instance  Num  t  =>  Show  (Polinomio  t)  where 
show  pol 


esPolCero  pol 

= 

"0" 

n  ==  0  && 

esPolCero 

P  = 

show  a 

n  ==  0 

= 

concat 

[show  a, 

II  _|_  II 

n  ==  1  && 

esPolCero 

P  = 

concat 

[show  a, 

"  *x"] 

n  ==  1 

= 

concat 

[show  a, 

"*x  + 

a  ==  1  && 

esPolCero 

P  = 

concat 

["x~",show  n] 

esPolCero 

P 

= 

concat 

[show  a, 

"*X~" 

a  ==  1 

= 

concat 

["x~",show  n, 

otherwise 

= 

concat 

[show  a, 

"*X~" 

where  n  =  grado  pol 

a  =  coefLider  pol 
p  =  restoPol  pol 


, show  p] 

",show  p] 

,  show  n] 

"  +  ",show  p] 
,  show  n,"  +  " 


, show  p] 


■  polCero  es  el  polinomio  cero.  Por  ejemplo, 

ghci>  polCero 
0 


polCero  : :  Num  a  =>  Polinomio  a 
polCero  =  Pol  [] 


■  (esPolCero  p)  se  verifica  si  p  es  el  polinomio  cero.  Por  ejemplo, 

esPolCero  polCero  True 

esPolCero  ejPoll  False 


esPolCero  : :  Num  a  =>  Polinomio  a  ->  Bool 
esPolCero  (Pol  [] )  =  True 
esPolCero  _  =  False 


(c onsPol  n  b  p)  es  el  polinomio  bxn  +  p.  Por  ejemplo. 
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e jPol2  ^  x~5  +  5*x~2  +  4*x 
consPol  3  0  ejPol2  ^  x~5  +  5*x~2  +  4*x 
consPol  3  2  polCero  2*x~3 

consPol  6  7  ejPol2  7*x~6  +  x~5  +  5*x~2  +  4*x 
consPol  4  7  ejPol2  ^  x~5  +  7*x~4  +  5*x~2  +  4*x 
consPol  5  7  ejPol2  ^  8*x~5  +  5*x~2  +  4*x 


■  (grado  p)  es  el  grado  del  polinomio  p.  Por  ejemplo, 

ejPol3  ^  6*x~4  +  2*x 

grado  ejPol3  4 


■  (coef  Lider  p)  es  el  coeficiente  lider  del  polinomio  p.  Por  ejemplo, 
IcoefLider  ejPol3  6 


■  (restoPol  p)  es  el  resto  del  polinomio  p.  Por  ejemplo, 

ejPol3  6*x~4  +  2*x 

restoPol  ejPol3  2*x 

ejPol2  x~5  +  5*x~2  +  4*x 

restoPol  ejPol2  5*x~2  +  4*x 
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restoPol  : :  Num  t  =>  Polinomio  t  ->  Polinomio  t 
restoPol  (Pol  [] )  =  polCero 

restoPol  (Pol  [_] )  =  polCero 

restoPol  (Pol  (_:xs))  =  Pol  xs 


21.3.  Comprobacion  de  las  implementaciones  con  Quick- 
Check 

21.3.1.  Librerfas  auxiliares 

■  Importacion  de  la  implementacion  a  verificar. 

import  PolRepTDA 

—  import  PolRepDispersa 

—  import  PolRepDensa 


■  Librerfas  auxiliares. 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


21.3.2.  Generador  de  polinomios 

■  (genPol  n)  es  un  generador  de  polinomios.  Por  ejemplo, 
ghci>  sample  (genPol  1) 

7*x~9  +  9*x~8  +  10*x~7  +  -14*x~5  +  -15*x~2  +  -10 
-4*x~8  +  2*x 


genPol  : :  Int  ->  Gen  (Polinomio  Int) 
genPol  0  =  return  polCero 
genPol  n  =  do  n  <-  choose  (0,10) 

b  <-  choose  (-10,10) 
p  <-  genPol  (div  n  2) 
return  (consPol  n  b  p) 

instance  Arbitrary  (Polinomio  Int)  where 
arbitrary  =  sized  genPol 
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21.3.3.  Especificacion  de  las  propiedades  de  los  polinomios 

■  polCero  es  el  polinomio  cero. 

prop_polCero_es_cero  : :  Bool 
prop_polCero_es_cero  = 
esPolCero  polCero 


■  Si  n  es  mayor  que  el  grado  de  p  y  b  no  es  cero,  entonces  (consPol  n  b  p)  es  un 
polinomio  distinto  del  cero. 

prop_consPol_no_cero  : :  Int  ->  Int  ->  Polinomio  Int 

->  Property 

prop_consPol_no_cero  n  b  p  = 
n  >  grado  p  &&  b  /=  0  ==> 

not  (esPolCero  (consPol  n  b  p)) 


■  (consPol  (grado  p)  (coef Lider  p)  (restoPol  p) )  es igual a  p. 

prop_consPol  : :  Polinomio  Int  ->  Bool 
prop_consPol  p  = 

consPol  (grado  p)  (coefLider  p)  (restoPol  p)  ==  p 


■  Si  n  es  mayor  que  el  grado  de  p  y  b  no  es  cero,  entonces  el  grado  de  (consPol  n  b  p) 
es  n. 

prop_grado  : :  Int  ->  Int  ->  Polinomio  Int  ->  Property 
prop_grado  n  b  p  = 

n  >  grado  p  &&  b  /=  0  ==> 
grado  (consPol  n  b  p)  ==  n 


■  Si  n  es  mayor  que  el  grado  de  p  y  b  no  es  cero,  entonces  el  coeficiente  lider  de 
(consPol  n  b  p)  es  b. 

prop_coefLider  : :  Int  ->  Int  ->  Polinomio  Int  ->  Property 
prop_coefLider  n  b  p  = 

n  >  grado  p  &&  b  /=  0  ==> 

coefLider  (consPol  n  b  p)  ==  b 


Si  n  es  mayor  que  el  grado  de  p  y  b  no  es  cero,  entonces  el  resto  de  (consPol  n  b  p) 
es  p. 
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prop_restoPol  : :  Int  ->  Int  ->  Polinomio  Int  ->  Property 
prop_restoPol  n  b  p  = 

n  >  grado  p  &&  b  /=  0  ==> 

restoPol  (consPol  n  b  p)  ==  p 


21.3.4.  Comprobacion  de  las  propiedades 

Procedimiento  de  comprobacion 


■  compruebaPropiedades  comprueba  todas  las  propiedades  con  la  plataforma  de 
verificacion.  Por  ejemplo. 


compruebaPropiedades  = 

def aultMain 

[testGroup  "Propiedades  del  TÅD  polinomio:" 

[testProperty 

"PI" 

prop_polCero_es_cero , 

testProperty 

"P2" 

prop_consPol_no_cero , 

testProperty 

"P3" 

prop_consPol, 

testProperty 

"P4" 

prop_grado , 

testProperty 

"P5" 

prop_coefLider , 

testProperty 

"P6" 

prop.restoPol]] 

Comprobacion  de  las  propiedades  de  los  polinomios 

ghci>  compruebaPropiedades 
Propiedades  del  TÅD  polinomio:: 

PI:  [OK,  passed  100  tests] 

P2:  [OK,  passed  100  tests] 

P3:  [OK,  passed  100  tests] 

P4:  [OK,  passed  100  tests] 

P5:  [OK,  passed  100  tests] 

P6:  [OK,  passed  100  tests] 

Properties  Total 
Passed  6  6 

Failed  0  0 

Total  6  6 
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21.4.  Operaciones  con  polinomios 

21.4.1.  Operaciones  con  polinomios 

■  Importacion  de  la  implementacion  a  utilizar. 

import  PolRepTDA 

—  import  PolRepDispersa 

—  import  PolRepDensa 


■  Importacion  de  librerfas  auxiliares. 

import  Test . QuickCheck 
import  Test . Framework 

import  Test . Framework .Providers . QuickCheck2 


Funciones  sobre  términos 

■  (creaTermino  n  a)  es  el  término  axn.  Por  ejemplo, 
I creaTermino  2  5  ^  5*x~2 


creaTermino::  Num  t  =>  Int  ->  t  ->  Polinomio  t 
creaTermino  n  a  =  consPol  n  a  polCero 


■  (termLider  p)  es  el  término  lider  del  polinomio  p.  Por  ejemplo, 

e jPol2  ^  x~5  +  5*x~2  +  4*x 

termLider  ejPo!2  ^  x~5 


termLider: :  Num  t  =>  Polinomio  t  ->  Polinomio  t 
termLider  p  =  creaTermino  (grado  p)  (coefLider  p) 


Suma  de  polinomios 

■  (sumaPol  p  q)  es  la  suma  de  los  polinomios  p  y  q.  Por  ejemplo, 

ejPoll  ^  3*x~4  +  -5*x~2  +  3 

e jPol2  x~5  +  5*x~2  +  4*x 

sumaPol  ejPoll  ejPol2  x~5  +  3*x~4  +  4*x  +  3 
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sumaPol : :  Num  a 

=>  Polinomio 

a 

->  Polinomio 

a  ->  Polinomio  a 

sumaPol  p  q 

1  esPolCero 

p  =  q 

1  esPolCero 

q  =  P 

I  ni  >  n2 

=  consPol 

ni 

al  (sumaPol 

ri  q) 

I  ni  <  n2 

=  consPol 

n2 

a2  (sumaPol 

p  r2) 

1  al+a2  /= 

0  =  consPol 

ni 

(al+a2)  (sumaPol  ri  r2) 

1  otherwise 

=  sumaPol 

ri 

r2 

where  ni  = 

grado  p 

al  = 

coefLider  p 

ri  = 

restoPol  p 

n2  = 

grado  q 

a2  = 

coefLider  q 

r2  = 

restoPol  q 

Propiedades  de  la  suma  de  polinomios 

■  El  polinomio  cero  es  el  elemento  neutro  de  la  suma. 

prop_neutroSumaPol  : :  Polinomio  Int  ->  Bool 
prop_neutroSumaPol  p  = 

sumaPol  polCero  p  ==  p 


■  La  suma  es  conmutativa. 


prop_conmutativaSuma  : :  Polinomio  Int  ->  Polinomio  Int 

->  Bool 

prop_conmutativaSuma  p  q  = 

sumaPol  p  q  ==  sumaPol  q  p 


Producto  de  polinomios 

■  (multPorTerm  t  p)  es  el  producto  del  término  t  por  el  polinomio  p.  Por  ejemplo, 

ejTerm  4*x 

e jPol2  x~5  +  5*x~2  +  4*x 

multPorTerm  ejTerm  ejPol2  4*x~6  +  20*x~3  +  16*x~2 
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multPorTerm  : :  Num  t  =>  Polinomio  t  ->  Polinomio  t  ->  Polinomio  t 
multPorTerm  term  pol 

I  esPolCero  pol  =  polCero 

I  otherwise  =  consPol  (n+m)  (a*b)  (multPorTerm  term  r) 
where  n  =  grado  term 

a  =  coefLider  term 
m  =  grado  pol 
b  =  coefLider  pol 
r  =  restoPol  pol 


■  (multPol  p  q)  es  el  producto  de  los  polinomios  p  y  q.  Por  ejemplo, 

ghci>  ejPoll 

3*x~4  +  -5*x'"2  +  3 

ghci>  ejPol2 

x~5  +  5*x~2  +  4*x 

ghci>  multPol  ejPoll  ejPol2 

3*x~9  +  -5*x~7  +  15*x~6  +  15*x~5  +  -25*x~4  +  -20*x~3 
+  15*x'"2  +  12*x 


multPol  : :  Mum  a  =>  Polinomio  a  ->  Polinomio  a  ->  Polinomio  a 
multPol  p  q 

I  esPolCero  p  =  polCero 

I  otherwise  =  sumaPol  (multPorTerm  (termLider  p)  q) 

(multPol  (restoPol  p)  q) 


Propiedades  del  producto  polinomios 

■  El  producto  de  polinomios  es  conmutativo. 


prop_conmutativaProducto  : :  Polinomio  Int 

->  Polinomio  Int  ->  Bool 
prop_conmutativaProducto  p  q  = 
multPol  p  q  ==  multPol  q  p 


■  El  producto  es  distributivo  respecto  de  la  suma. 

prop_distributiva  : :  Polinomio  Int  ->  Polinomio  Int 

->  Polinomio  Int  ->  Bool 
prop_distributiva  p  q  r  = 
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multPol  p  (sumaPol  q  r)  == 
sumaPol  (multPol  p  q)  (multPol  p  r) 

Polinomio  unidad 

■  polUnidad  es  el  polinomio  unidad.  Por  ejemplo, 

ghci>  polUnidad 
1 

polUnidad: :  Num  t  =>  Polinomio  t 
polUnidad  =  consPol  0  1  polCero 


■  El  polinomio  unidad  es  el  elemento  neutro  del  producto. 


Valor  de  un  polinomio  en  un  punto 

■  (valor  p  c)  es  el  valor  del  polinomio  p  al  sustituir  su  variable  por  c.  Por  ejemplo, 

ejPoll  3*x~4  +  -5*x~2  +  3 

valor  ejPoll  0  ^3 

valor  ejPoll  1  1 

valor  ejPoll  (-2)  31 
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Verificacion  de  raices  de  polinomios 


■  (esRaiz  c  p)  se  verifica  si  c  es  una  raiz  del  polinomio  p.  por  ejemplo. 


ejPol3  ^ 

esRaiz  1  ejPol3 
esRaiz  0  ejPo!3 


6*x~4  +  2*x 

False 

True 


esRaiz::  Num  a  =>  a  ->  Polinomio  a  ->  Bool 
esRaiz  c  p  =  valor  p  c  ==  0 


Derivacion  de  polinomios 

■  (derivada  p)  es  la  derivada  del  polinomio  p.  Por  ejemplo, 

e jPol2  ^  x~5  +  5*x~2  +  4*x 

derivada  ejPol2  5*x~4  +  10*x  +  4 


derivada  : :  Polinomio  Int  ->  Polinomio  Int 
derivada  p 

I  n  ==  0  =  polCero 

I  otherwise  =  consPol  (n-1)  (n*b)  (derivada  r) 
where  n  =  grado  p 

b  =  coefLider  p 
r  =  restoPol  p 


Propiedades  de  las  derivadas  de  polinomios 

■  La  derivada  de  la  suma  es  la  suma  de  las  derivadas. 

prop_derivada  : :  Polinomio  Int  ->  Polinomio  Int  ->  Bool 
prop_derivada  p  q  = 

derivada  (sumaPol  p  q)  == 
sumaPol  (derivada  p)  (derivada  q) 
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Algoritmos  sobre  grafos 


22.1.  El  TAD  de  los  grafos 

22.1.1.  Definiciones  y  terminologfa  sobre  grafos 

■  Un  graf  o  G  es  un  par  (V,  A)  donde  V  es  el  conjunto  de  los  vértices  (o  nodos)  y  A 
el  de  las  aristas. 

■  Una  arista  del  grafo  es  un  par  de  vértices. 

■  Un  arco  es  una  arista  dirigida. 

■  I  V I  es  el  numero  de  vértices. 

■  I  A I  es  el  numero  de  aristas. 

■  Un  vértice  v  es  adjacente  a  v'  si  vv'  es  una  arista  del  graf  o. 

■  Un  grafo  ponderado  es  un  grafo  cuyas  aristas  tienen  un  peso. 


22.1.2.  Signatura  del  TAD  de  los  grafos 


Signatura  del  TAD  de  los  grafos 


creaGraf o 

dirigido 

adyacentes 

nodos 

aristas 

aristaEn 

peso 


(Ix  v,Num  p) 

(Ix  v,Num  p) 
(Ix  v,Num  p) 
(Ix  v,Num  p) 
(Ix  v,Num  p) 
(Ix  v,Num  p) 
(Ix  v,Num  p) 


=>  Orientacion  ->  (v,v)  ->  [(v,v,p)] 
Grafo  v  p 

=>  (Grafo  v  p)  ->  Bool 
=>  (Grafo  v  p)  ->  v  ->  [v] 

=>  (Grafo  v  p)  ->  [v] 

=>  (Grafo  v  p)  ->  [(v,v,p)] 

=>  (Grafo  v  p)  ->  (v,v)  ->  Bool 
=>  v  ->  v  ->  (Grafo  v  p)  ->  p 


-> 
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Descripcion  de  la  signatura  del  TAD  de  grafos 

■  (creaGraf  o  d  cs  as)  es  un  grafo  (dirigido  o  no,  segun  el  valor  de  o),  con  el  par 
de  cotas  cs  y  listas  de  aristas  as  (cada  arista  es  un  trio  formado  por  los  dos  vértices 
y  su  peso). 

Ver  un  ejemplo  en  la  siguiente  transparencia. 

■  (dirigido  g)  se  verifica  si  g  es  dirigido. 

■  (nodos  g)  es  la  lista  de  todos  los  nodos  del  grafo  g. 

■  (aristas  g)  es  la  lista  de  las  aristas  del  grafo  g. 

■  (adyacentes  g  v)  es  la  lista  de  los  vértices  adyacentes  al  nodo  v  en  el  grafo  g. 

■  (aristaEn  g  a)  se  verifica  si  a  es  una  arista  del  grafo  g. 

■  (peso  vi  v2  g)  es  el  peso  de  la  arista  que  une  los  vértices  vi  y  v2  en  el  grafo  g. 

Ejemplo  de  creacion  de  graf  os. 

creaGraf o  ND  (1,5)  [(1,2,12) , (1,3,34) , (1,5,78) , 

(2,4,55) , (2,5,32)  , 

(3,4,61) , (3,5,44) , 

(4,5,93)] 

crea  el  grafo 
12 

1 - 2 

I  \78  / 1 

I  \  32/| 

I  \  /  I 

34|  5  155 

I  /  \  I 

1/44  \  | 

I  /  93\  I 

3 - 4 

61 
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22.1.3.  Implementacion  de  los  grafos  como  vectores  de  adyacencia 

■  Cabecera  del  modulo: 

module  Graf oConVectorDeÅdyacencia 
(Orientacion 
Graf o , 

creaGrafo,  --  (Ix  v,Num  p)  =>  Orientacion  ->  (v,v)  ->  [(v,v,p)]  -> 

Graf o  v  p 

dirigido,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  Bool 

adyacentes,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  v  ->  [v] 

nodos,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [v] 

aristas,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [(v,v,p)] 

aristaEn,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  (v,v)  ->  Bool 

peso  --  (Ix  v,Num  p)  =>  v  ->  v  ->  (Grafo  v  p)  ->  p 

)  where 


■  Librerfas  auxiliares. 


■  Orientacion  es  D  (dirigida)  6  ND  (no  dirigida). 


■  (Graf  o  v  p)  es  un  grafo  con  vértices  de  tipo  v  y  pesos  de  tipo  p. 

data  Graf o  v  p  =  G  Orientacion  (Array  v  [(v,p)]) 
deriving  (Eq,  Show) 

■  (creaGrafo  o  cs  as)  es  un  grafo  (dirigido  o  no  segun  el  valor  de  o),  con  el  par  de 
cotas  cs  y  listas  de  aristas  as  (cada  arista  es  un  trio  formado  por  los  dos  vértices  y 
su  peso).  Ver  un  ejemplo  a  continuacion. 

creaGrafo  ::  (Ix  v,  Num  p)  => 

Orientacion  ->  (v,v)  ->  [(v,v,p)]  ->  Grafo  v  p 
creaGrafo  o  cs  vs  = 

G  o  (accumArray 

(\xs  x  ->  xs++[x])  []  cs 
((if  o  ==  D  then  [] 
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else  [(x2, (xl,p)) I (xl,x2,p)  <-  vs,  xl  /=  x2] )  ++ 
[(xl , (x2 ,p) )  |  (xl,x2,p)  <-  vs])) 


■  ejGrafoND  es  el  grafo  que  de  la  pagina  ??.  Por  ejemplo, 
ghci>  ejGrafoND 

G  ND  array  (1,5)  [(1 ,  [(2 , 12) , (3 ,34) , (5,78)] )  , 

(2, [(1,12), (4, 55), (5, 32)]), 

(3, [(1,34), (4, 61), (5, 44)]), 

(4, [(2, 55), (3, 61), (5, 93)]), 

(5,  [(1,78) , (2,32) , (3,44) , (4,93)])]) 


ejGrafoND  =  creaGrafo  ND  (1,5)  [(1 , 2, 12) , (1 ,3 ,34) , (1 , 5,78) , 

(2, 4, 55), (2, 5, 32), 

(3, 4, 61), (3, 5, 44), 

(4,5,93)] 


■  ej  Graf  oD  es  el  mismo  grafo  que  ejGrafoND  pero  orientando  las  aristas  de  menor 
a  mayor.  Por  ejemplo, 

ghci>  ejGrafoD 

G  D  array  (1,5)  [(1, [(2, 12) , (3,34) , (5,78)] ) , 

(2, [(4, 55), (5, 32)]), 

(3, [(4, 61), (5, 44)]), 

(4, [(5,93)])  , 

(5,  [] )] ) 


ejGrafoD  =  creaGrafo  D  (1,5)  [(1 ,2 , 12) , (1 ,3 ,34) , (1 , 5,78) , 

(2, 4, 55), (2, 5, 32), 

(3, 4, 61), (3, 5, 44), 

(4,5,93)] 


■  (dirigido  g)  se  verifica  si  g  es  dirigido.  Por  ejemplo, 

dirigido  ejGrafoD  ==  True 
dirigido  ejGrafoND  ==  False 


dirigido  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  Bool 
dirigido  (G  o  _)  =  o  ==  D 
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■  (adyacentes  g  v)  es  la  lista  de  los  vértices  adyacentes  al  nodo  v  en  el  grafo  g.  Por 
ejemplo, 

adyacentes  ejGrafoND  4  ==  [2,3,5] 
adyacentes  ej  Graf oD  4  ==  [5] 


adyacentes  : :  (Ix  v,Mnm  p)  =>  (Grafo  v  p)  ->  v  ->  [v] 
adyacentes  (G  _  g)  v  =  map  fst  (g!v) 


■  (nodo s  g)  es  la  lista  de  todos  los  nodos  del  grafo  g.  Por  ejemplo, 

nodos  ejGrafoND  ==  [1,2, 3, 4, 5] 

nodos  ejGrafoD  ==  [1,2, 3, 4, 5] 


nodos  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [v] 
nodos  (G  _  g)  =  indices  g 


■  (peso  vi  v2  g)  es  el  peso  de  la  arista  que  une  los  vértices  vi  y  v2  en  el  grafo  g. 
Por  ejemplo, 

peso  1  5  ejGrafoND  ==  78 
peso  1  5  ejGrafoD  ==  78 


peso  : :  (Ix  v,Num  p)  =>  v  ->  v  ->  (Grafo  v  p)  ->  p 
peso  x  y  (G  _  g)  =  head  [c  I  (a,c)  <-  g!x  ,  a  ==  y] 


■  (aristaEn  g  a)  se  verifica  si  a  es  una  arista  del  grafo  g.  Por  ejemplo. 


aristaEn  ejGrafoND 
aristaEn  ejGrafoND 
aristaEn  ejGrafoD 
aristaEn  ejGrafoD 


(5.1)  ==  True 

(4.1)  ==  False 

(5.1)  ==  False 

(1,5)  ==  True 


aristaEn  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  (v,v)  ->  Bool 
aristaEn  g  (x,y)  =  y  £elemc  adyacentes  g  x 


(ari stås  g)  es  la  lista  de  las  aristas  del  grafo  g.  Por  ejemplo. 
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ghci>  aristas  ejGrafoND 

[(1,2,12) , (1,3,34) ,(1,5,78), (2, 1,12) , (2,4,55) , (2,5,32) , 
(3,1,34) , (3,4,61) ,(3,5,44), (4,2,55) , (4,3,61) , (4,5,93) , 
(5,1,78) , (5,2,32) ,(5,3,44), (5,4,93)] 
ghci>  aristas  ejGrafoD 

[(1,2,12) , (1,3,34) ,(1,5,78), (2,4,55) , (2,5,32) , (3,4,61) , 
(3,5,44) , (4,5,93)] 


22.1.4.  Implementacion  de  los  grafos  como  matrices  de  adyacencia 

■  Cabecera  del  modulo. 

module  Graf oConMatrizDeAdyacencia 
(Orientacion  (..), 

Graf o , 

creaGrafo,  --  (Ix  v,Num  p)  =>  Orientacion  ->  (v,v)  ->  [(v,v,p)]  -> 

Graf o  v  p 

dirigido,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  Bool 

adyacentes,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  v  ->  [v] 

nodos,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [v] 

aristas,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [(v,v,p)] 

aristaEn,  --  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  (v,v)  ->  Bool 

peso  --  (Ix  v,Num  p)  =>  v  ->  v  ->  (Grafo  v  p)  ->  p 

)  where 


■  Librerfas  auxiliares 


■  Orientacion  es  D  (dirigida)  6  ND  (no  dirigida). 


■  (Graf  o  v  p)  es  un  grafo  con  vértices  de  tipo  v  y  pesos  de  tipo  p. 
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data  Graf o  v  p  =  G  Orientacion  (Array  (v,v)  (Maybe  p)) 
deriving  (Eq,  Show) 


■  (creaGraf  o  o  cs  as)  es  un  grafo  (dirigido  o  no,  segun  el  valor  de  o),  con  el  par 
de  cotas  cs  y  listas  de  aristas  as  (cada  arista  es  un  trio  formado  por  los  dos  vértices 
y  su  peso).  Ver  un  ejemplo  a  continuacion. 


creaGrafo  : :  (Ix  v,  Num  p)  =>  Bool  ->  (v,v)  ->  [(v,v,p)] 

->  Grafo  v  p 

creaGrafo  o  cs@(l,u)  as 
=  G  o  (matrizVacia  // 

( [( (xl ,x2) , Just  w)  |  (xl,x2,w)  <-  as]  ++ 
if  o  ==  D  then  [] 

else  [((x2,xl) , Just  w)  I  (xl,x2,w)  <-  as,  xl  /=  x2])) 


where 

matrizVacia  =  array  ((1,1) , (u,u)) 

[( (xl ,x2) , Nothing)  I  xl  <-  range  cs, 

x2  <-  range  cs] 


■  ejGrafoND  es  el  grafo  que  de  la  pagina  ??.  Por  ejemplo, 

ghci>  ejGrafoND 
G  ND  array  ( (1 , 1) , (5 , 5) ) 

[((1,1) ,Nothing) , ((1,2) ,  Just  12) , ( (1 ,3) , Just  34), 
((1,4) ,Nothing) , ((1,5) , Just  78) , ( (2 , 1) , Just  12), 
( (2,2) , Nothing) , ( (2,3) ,Nothing) , ( (2,4) , Just  55) , 
((2, 5), Just  32) , ((3,1) , Just  34) , ( (3,2) .Nothing) , 
((3,3) ,Nothing) , ((3,4) , Just  61) , ( (3 , 5) , Just  44), 
((4,1) , Nothing) , ((4,2) , Just  55) ,( (4,3) , Just  61), 
((4,4) , Nothing) , ((4,5) , Just  93) , ( (5 , 1) , Just  78), 
((5, 2), Just  32) , ((5,3) , Just  44) ,( (5,4) , Just  93), 
( (5,5) , Nothing)] 


ejGrafoND  =  creaGrafo  ND  (1,5)  [(1 , 2, 12) , (1 ,3 ,34) , (1 , 5,78) , 

(2, 4, 55), (2, 5, 32), 

(3, 4, 61), (3, 5, 44), 

(4,5,93)] 


ej  Graf  oD  es  el  mismo  grafo  que  ejGrafoND  pero  orientando  las  aristas  de  menor 
a  mayor.  Por  ejemplo. 


ghci>  ejGrafoD 
G  D  (array  ((1,1) , (5,5)) 

[((1,1) ,Nothing) , ((1,2) , Just  12) , ( (1 ,3) , Just  34), 
((1,4), Nothing) ,((1,5), Just  78) , ( (2 , 1) , Nothing) , 
( (2,2) , Nothing) , ( (2,3) , Nothing) , ( (2,4) , Just  55) , 
( (2,5) , Just  32) ,((3,1) , Nothing) , ( (3,2) , Nothing) , 
((3,3) , Nothing) , ((3,4) , Just  61) , ( (3 , 5) , Just  44), 
((4,1) , Nothing) , ((4,2) , Nothing) , ((4,3) , Nothing) , 
( (4,4) , Nothing) , ( (4,5) , Just  93) ,((5,1) , Nothing) , 
( (5,2) , Nothing) , ( (5,3) , Nothing) , ( (5,4) , Nothing) , 
( (5,5) , Nothing)] ) 


ejGrafoD  =  creaGrafo  D  (1,5)  [(1 ,2 , 12) , (1 ,3 ,34) , (1 , 5,78) , 

(2, 4, 55), (2, 5, 32), 

(3, 4, 61), (3, 5, 44), 

(4,5,93)] 


(dirigido  g)  se  verifica  si  g  es  dirigido.  Por  ejemplo, 

dirigido  ejGrafoD  ==  True 
dirigido  ejGrafoND  ==  False 


dirigido  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  Bool 
dirigido  (G  o  _)  =  o  ==  D 


(adyacentes  g  v)  es  la  lista  de  los  vértices  adyacentes  al  nodo  v  en  el  grafo  g.  Por 
ejemplo, 

adyacentes  ejGrafoND  4  ==  [2,3,5] 
adyacentes  ejGrafoD  4  ==  [5] 


adyacentes  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  v  ->  [v] 
adyacentes  (G  o  g)  v  = 

[v’  |  v’  <-  nodos  (G  o  g) ,  (g!(v,v’))  /=  Nothing] 


(nodo s  g)  es  la  lista  de  todos  los  nodos  del  grafo  g.  Por  ejemplo, 

nodos  ejGrafoND  ==  [1,2, 3, 4, 5] 

nodos  ejGrafoD  ==  [1,2, 3, 4, 5] 


Tema  22.  Algoritmos  sobre  grafos 


269 


nodos  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [v] 
nodos  (G  _  g)  =  range  (l,u) 

where  ((!,_) ,(u,_))  =  bounds  g 


■  (peso  vi  v2  g)  es  el  peso  de  la  arista  que  une  los  vértices  vi  y  v2  en  el  grafo  g. 
Por  ejemplo, 

peso  1  5  ejGrafoND  ==  78 
peso  1  5  ejGrafoD  ==  78 


peso  : :  (Ix  v,Num  p)  =>  v  ->  v  ->  (Grafo  v  p)  ->  p 
peso  x  y  (G  _  g)  =  w  where  (Just  w)  =  g!(x,y) 


■  (aristaEn  g  a)  se  verifica  si  a  es  una  arista  del  grafo  g.  Por  ejemplo, 

aristaEn  ejGrafoND  (5,1)  ==  True 
aristaEn  ejGrafoND  (4,1)  ==  False 


aristaEn  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  (v,v)  ->  Bool 
aristaEn  (G  _o  g)  (x,y)=  (g!(x,y))  /=  Nothing 


■  (ari stås  g)  es  la  lista  de  las  aristas  del  grafo  g.  Por  ejemplo, 
ghci>  aristas  ejGrafoD 

[(1,2,12) , (1,3,34) ,(1,5,78), (2,4,55) , (2,5,32) , (3,4,61) , 
(3,5,44) , (4,5,93)] 
ghci>  aristas  ejGrafoND 

[(1,2,12) , (1,3,34) ,(1,5,78), (2,1,12) , (2,4,55) , (2,5,32) , 
(3,1,34) , (3,4,61) ,(3,5,44), (4,2,55) , (4,3,61) , (4,5,93) , 
(5,1,78) , (5,2,32) ,(5,3,44), (5,4,93)] 


aristas  : :  (Ix  v,Num  p)  =>  (Grafo  v  p)  ->  [(v,v,p)] 
aristas  g@(G  o  e)  =  [(vl,v2,extrae(e! (vl,v2))) 

I  vi  <-  nodos  g, 
v2  <-  nodos  g, 
aristaEn  g  (vl,v2)] 
where  extrae  (Just  w)  =  w 
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22.2.  Recorridos  en  profundidad  y  en  anchura 

22.2.1.  Recorrido  en  profundidad 

■  Importaciones  de  librerfas  auxiliares. 

--  Nota:  Elegir  una  implementacion  de  los  graf os. 
import  GrafoConVectorDeAdyacencia 
—  import  GrafoConMatrizDeAdyacencia 

■  En  los  ejemplos  se  usarå  el  grafo  g 

+ — >  2  < — + 

I  I 

I  I 

1  — >  3  -->  6  -->  5 

I  I 

I  I 

+ - >  4  < - + 

que  se  define  por 

g  =  creaGrafo  D  (1,6) 

[(1,2,0), (1,3,0), (1,4,0), (3, 6,0), 

(5,4,0), (6,2,0), (6,5,0)] 


Procedimiento  elemental  de  recorrido  en  profundidad 

■  (recorridoEnProfundidad  i  g)  es  el  recorrido  en  profundidad  del  grafo  g  desde 
el  vértice  i.  Por  ejemplo, 

I recorridoEnProfundidad  1  g  ==  [1,2, 3, 6, 5, 4] 


recorridoEnProfundidad  i  g  =  rp  [i]  [] 
where 

rp  []  vis  =  vis 
rp  (c:cs)  vis 

I  c  celemc  vis  =  rp  cs  vis 
I  otherwise  =  rp  ((adyacentes  g  c)++cs) 

(vis++  [c] ) 


Traza  del  cålculo  de  (recorridoEnProfundidad  1  g) 
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recorridoEnProfundidad  1  g 
=  rp  [1]  [] 

=  rp  [2,3,4]  [1] 

=  rp  [3,4]  [1,2] 

=  rp  [6,4]  [1,2,3] 

=  rp  [2,5,4]  [1,2, 3, 6] 

=  rp  [5,4]  [1,2, 3, 6] 

=  rp  [4,4]  [1,2, 3, 6, 5] 

=  rp  [4]  [1,2, 3, 6, 5, 4] 

=  rp  []  [1,2, 3, 6, 5, 4] 

=  [1,2, 3, 6, 5, 4] 

Recorrido  en  profundidad  con  acumuladores 


■  (recorridoEnProfundidad’  i  g)  es  el  recorrido  en  profundidad  del  grafo,  usan¬ 
do  la  lista  de  los  visitados  como  acumulador.  Por  ejemplo, 

I recorridoEnProfundidad’  1  g  ==  [1,2, 3, 6, 5, 4] 


■  Traza  del  cålculo  de  (recorridoEnProfundidad’  1  g) 

recorridoEnProfundidad’  1  g 
=  reverse  (rp  [1]  [] ) 

=  reverse  (rp  [2,3,4]  [1]) 

=  reverse  (rp  [3,4]  [2,1]) 

=  reverse  (rp  [6,4]  [3,2,1]) 

=  reverse  (rp  [2,5,4]  [6,3,2, 1]) 

=  reverse  (rp  [5,4]  [6,3,2, 1]) 

=  reverse  (rp  [4,4]  [5,6,3,2,1]) 

=  reverse  (rp  [4]  [4,5 ,6 ,3, 2 , 1] ) 

=  reverse  (rp  []  [4, 5 ,6 ,3, 2 , 1] ) 

=  reverse  [4, 5, 6, 3, 2, 1] 

=  [1,2, 3, 6, 5, 4] 
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22.2.2.  Recorrido  en  anchura 

■  Importaciones  de  librerfas  auxiliares. 

--  Nota:  Elegir  una  implementacion  de  los  graf os. 
import  GrafoConVectorDeAdyacencia 
—  import  GrafoConMatrizDeAdyacencia 


Procedimiento  elemental  de  recorrido  en  anchura 

■  (recorridoEnAnchura  i  g)  es  el  recorrido  en  anchura  del  grafo  g  desde  el  vértice 
i.  Por  ejemplo, 

I recorridoEnAnchura  1  g  ==  [1,4,3 ,2,6,5] 


recorridoEnAnchura  i  g  =  reverse  (ra  [i]  [] ) 
where 

ra  []  vis  =  vis 
ra  (c:cs)  vis 

I  c  £elemc  vis  =  ra  cs  vis 
I  otherwise  =  ra  (cs  ++  adyacentes  g  c) 

(c :vis) 


■  Traza  del  cålculo  de  (recorridoEnAnchura  1  g) 


RecorridoEnAnchura  1  g 
=  ra  [1]  [] 


=  ra  [2,3,4]  [1] 

=  ra  [3,4]  [2,1] 

=  ra  [4,6]  [3,2,1] 


=  ra  [6]  [4,3,2, 1] 

=  ra  [2,5]  [6, 4, 3, 2,1] 

=  ra  [5]  [6, 4, 3, 2,1] 

=  ra  [4]  [5, 6, 4, 3, 2,1] 

=  ra  []  [5, 6, 4, 3, 2,1] 

=  [1,2, 3, 4, 6, 5] 
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22.3.  Årboles  de  expansion  mmimos 

✓ 

22.3.1.  Arboles  de  expansion  mmimos 

■  Sea  G  =  (V,A)  un  grafo  conexo  no  orientado  en  el  que  cada  arista  tiene  un  peso 
no  negativo.  Un  årbol  de  expansion  mi'nimo  de  G  es  un  subgrafo  G'  =  (V,A') 
que  conecta  todos  los  vértices  de  G  y  tal  que  la  suma  de  sus  pesos  es  minima. 

■  Aplicacion:  Si  los  vértices  representan  ciudades  y  el  coste  de  una  arista  {a,  b}  es  el 
construir  una  carretera  de  a  ab,  entonces  un  årbol  de  expansion  mmirno  representa 
el  modo  de  enlazar  todas  las  ciudades  mediante  una  red  de  carreteras  de  coste 
mmirno. 

■  Terminologta  de  algoritmos  voraces:  Sea  G  =  (V,  A)  un  grafo  y  T  un  conjunto  de 
aristas  de  G. 

•  T  es  una  solucion  si  es  un  grafo  de  expansion. 

•  T  es  completable  si  no  tiene  ciclos. 

•  T  es  prometedor  si  es  completable  y  puede  ser  completado  hasta  llegar  a  una 
solucion  optima. 

•  Una  arista  toca  un  conjunto  de  vértices  B  si  exactamente  uno  de  sus  extremos 
pertenece  a  B. 

■  Teorema:  Sea  G  =  (  V,  A)  un  grafo  conexo  no  orientado  cuyas  aristas  tienen  un 
peso  asociado.  Sea  B  un  subjconjunto  propio  del  conjunto  de  vértices  V  y  T  un 
conjunto  prometedor  de  aristas  tal  que  ninguna  arista  de  T  toca  a  B.  Sea  e  una 
arista  de  peso  mmirno  de  entre  todas  las  que  tocan  a  B.  Entonces  (TU  {c})  es 
prometedor. 

22.3.2.  El  algoritmo  de  Kruskal 

Para  los  ejemplos  se  considera  el  siguiente  grafo: 

1  2 
1 - 2 - 3 

I  /I  /I 

I  /I  /I 

I  /  I  /  I 

4|  /6  14  /5  16 

I  /  I  /  I 

I  /  I  /  I 

1/  1/  I 
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4 - 5 - 6 

\  3  I  8  / 

\  I  / 

\  I  / 

4\  17/3 

\  I  / 

\  I  / 

\  I  / 

7 

■  Aplicacion  del  algoritmo  de  Kruskal  al  grafo  anterior: 
lEtapa  Årista  Componentes  conexas 


0 

{1}  {2}  {3}  {4}  {5}  {6}  {7} 

1 

{1,2} 

{1,2}  {3}  {4}  {5}  {6}  {7} 

2 

{2,3} 

{1,2,3}  {4}  {5}  {6}  {7} 

3 

{4,5} 

{1,2,3}  {4,5}  {6}  {7} 

4 

{6,7} 

{1,2,3}  {4,5}  {6,7} 

5 

{1,4} 

{1,2, 3, 4, 5}  {6,7} 

6 

{2,5} 

arista  rechazada 

7 

{4,7} 

{1,2, 3, 4, 5, 6, 7} 

■  El  årbol  de  expansion  mmimo  contiene  las  aristas  no  rechazadas: 
|  {1 , 2} ,  {2,3},  {4,5},  {6,7},  {1,4}  y  {4,7}. 

■  Librerias  auxiliares. 

—  Nota:  Seleccionar  una  implementacion  del  TÅD  graf o . 
import  GrafoConVectorDeAdyacencia 

—  import  GrafoConMatrizDeAdyacencia 

—  Nota:  Seleccionar  una  implementacion  del  TAD  tabla. 
--  import  TablaConFunciones 

import  TablaConListasDeAsociacion 

—  import  TablaConMatrices 

import  Data. List 
import  Data.Ix 


Grafos  usados  en  los  ejemplos. 
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■  (kruskal  g)  es  el  årbol  de  expansion  mmimo  del  grafo  g  calculado  mediante  el 
algoritmo  de  Kruskal.  Por  ejemplo, 

kruskal  gi  ==  [(55 , 2 ,4) , (34 , 1 ,3) , (32 , 2 ,5) , (12 , 1 , 2)] 

kruskal  g2  ==  [(32 , 2 , 5) , (13 , 1 ,2) , (12 , 2 ,4) , (11 , 1 ,3)] 

kruskal  : :  (Ix  v,  Num  p,  Ord  p)  =>  Graf o  v  p  ->  [(p,v,v)] 

kruskal  g  =  kruskal’  cola  --  Cola  de  prioridad 

(tabla  [(x,x)  I  x  <-  nodos  g])  --  Tabla  de  raices 
[]  --  Årbol  de  expansion 

((length  (nodos  g))  -  1)  --  Åristas  por 

--  colocar 

where  cola  =  sort  [(p,x,y)  I  (x,y,p)  <-  aristas  g] 

kruskal’  ((p,x,y):as)  t  ae  n 
I  n==0  =  ae 

I  actualizado  =  kruskal’  as  t’  ((p,x,y):ae)  (n-1) 

I  otherwise  =  kruskal’  as  t  ae  n 

where  (actualizado ,t ’ )  =  buscaActualiza  (x,y)  t 

■  (raiz  t  n)  es  la  raiz  de  n  en  la  tabla  t.  Por  ejemplo, 

>  raiz  (crea  [(1,1) , (3,1) , (4,3) , (5,4) , (2,6) ,  (6,6)])  5 
1 

>  raiz  (crea  [(1,1) , (3,1) , (4,3) , (5,4) , (2,6) , (6,6)])  2 
6 
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raiz: :  Eq  n  =>  Tabla  n  n  ->  n  ->  n 
raiz  t  x  |  v  ==  x  =  v 

I  otherwise  =  raiz  t  v 
where  v  =  valor  t  x 


■  (buscaActualiza  a  t)  es  el  par  formado  por  False  y  la  tabla  t,  si  los  dos  vértices 
de  la  arista  a  tienen  la  misma  raiz  en  t  y  el  par  formado  por  True  y  la  tabla  obtenida 
anadiéndole  a  t  la  arista  formada  por  el  vértice  de  a  de  mayor  raiz  y  la  raiz  del 
vértice  de  a  de  menor  raiz.  Por  ejemplo, 

ghci>  let  t  =  crea  [(1,1) , (2,2) , (3,1) , (4,1)] 

ghci>  buscaActualiza  (2,3)  t 

(True ,Tbl  [(1,1) , (2,1) , (3,1) , (4,1)]) 

ghci>  buscaActualiza  (3,4)  t 

(False, Tbl  [(1, 1) , (2,2) , (3,1) , (4,1)] ) 


buscaActualiza  : :  (Eq  n,  Ord  n)  =>  (n,n)  ->  Tabla  n  n 

->  (Bool, Tabla  n  n) 

buscaActualiza  (x,y)  t 

|  x  ==  y’  =  (False,  t) 

I  y’  <  x’  =  (True,  modifica  (x,y’)  t) 

I  otherwise  =  (True,  modifica  (y,x’)  t) 
where  x’  =  raiz  t  x 
y’  =  raiz  t  y 


22.3.3.  El  algoritmo  de  Prim 

■  (prim  g)  es  el  årbol  de  expansion  minimo  del  grafo  g  calculado  mediante  el  algo¬ 
ritmo  de  Prim.  Por  ejemplo, 

prim  gi  ==  [(55, 2, 4), (34, 1,3), (32, 2, 5), (12, 1,2)] 

prim  g2  ==  [(32, 2, 5), (12, 2, 4), (13, 1,2), (11, 1,3)] 


prim  : :  (Ix  v,  Num  p,  Ord  p)  =>  Grafo  v  p  ->  [(p,v,v)] 
prim  g  =  prim’  [n]  —  Nodos  colocados 

ns  —  Nodos  por  colocar 

[]  —  Årbol  de  expansion 

(aristas  g)  —  Aristas  del  grafo 

where  (n:ns)  =  nodos  g 
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prim’  t  []  ae  as  =  ae 

prim’  t  r  ae  as  =  prim’  (v’ :t)  (delete  v’  r)  (e:ae)  as 
where  e@(c,u’,  v’)  =  minimum  [(c,u,v)|  (u,v,c)  <-  as, 

elem  u  t, 
elem  v  r] 
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Tema  23 


Técnicas  de  diseno  descendente  de 
algoritmos 

23.1.  La  técnica  de  divide  y  vencerås 

23.1.1.  La  técnica  de  divide  y  vencerås 

La  técnica  divide  y  vencerås  consta  de  los  siguientes  pasos: 

1.  Dividir  el  problema  en  subproblemas  menores. 

2.  Resolver  por  separado  cada  uno  de  los  subproblemas: 

■  si  los  subproblemas  son  complejos,  usar  la  misma  técnica  recursivamente; 

■  si  son  simples,  resolverlos  directamente. 

3.  Combinar  todas  las  soluciones  de  los  subproblemas  en  una  solucion  simple. 

■  (divideVenceras  ind  resuelve  divide  combina  pblnicial)  resuelve  el  proble¬ 
ma  pblnicial  mediante  la  técnica  de  divide  y  vencerås,  donde 

•  (ind  pb)  se  verifica  si  el  problema  pb  es  indivisible, 

•  (resuelve  pb)  es  la  solucion  del  problema  indivisible  pb, 

•  (divide  pb)  es  la  lista  de  subproblemas  de  pb, 

•  (combina  pb  ss)  es  la  combinacion  de  las  soluciones  ss  de  los  subproblemas 
del  problema  pb  y 

•  pblnicial  es  el  problema  inicial. 


279 


280 


divideVenceras  ::  (p  ->  Bool)  ->  (p  ->  s)  ->  (p  ->  [p] ) 

->  (p  ->  [s]  ->  s)  ->  p  ->  s 
divideVenceras  ind  resuelve  divide  combina  pblnicial  = 
dv’  pblnicial  where 
dv’  pb 

I  ind  pb  =  resuelve  pb 

I  otherwise  =  combina  pb  [dv’  sp  I  sp  <-  divide  pb] 


23.1.2.  La  ordenacion  por  mezcla  como  ejemplo  de  DyV 

■  (ordenaPorMezcla  xs)  es  la  lista  obtenida  ordenando  xs  por  el  procedimiento  de 
ordenacion  por  mezcla.  Por  ejemplo, 

ghci>  ordenaPorMezcla  [3, 1 ,4, 1 , 5 ,9 ,2 ,8] 

[1,1, 2, 3, 4, 5, 8, 9] 


ordenaPorMezcla  : : 

Ord  a  =>  [a]  ->  [a] 

ordenaPorMezcla  xs 

= 

divideVenceras 

ind  id  divide  combina  xs 

where 

ind  xs 

=  length  xs  <=  1 

divide  xs 

=  [take  n  xs,  drop  n  xs] 

where  n  =  length  xs  £divc  2 

combina  _  [11,12]  =  mezcla  11  12 

■  (mezcla  xs  ys)  es  la  lista  obtenida  mezclando  xs  e  ys.  Por  ejemplo, 
Imezcla  [1,3]  [2,4,6]  [1,2, 3, 4, 6] 


mezcla  : :  Ord  a  =>  [a]  ->  [a]  ->  [a] 

mezcla  []  b  =  b 

mezcla  a  []  =  a 

mezcla  a@(x:xs)  b@(y:ys) 

I  x  <=  y  =  x  :  (mezcla  xs  b) 

I  otherwise  =  y  :  (mezcla  a  ys) 


23.1.3.  La  ordenacion  råpida  como  ejemplo  de  DyV 

■  (ordenaRapida  xs)  es  la  lista  obtenida  ordenando  xs  por  el  procedimiento  de  or¬ 
denacion  råpida.  Por  ejemplo. 
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ghci>  ordenaRapida  [3, 1 ,4, 1,5,9 ,2,8] 
[1,1, 2, 3, 4, 5, 8, 9] 


ordenaRapida  : :  Ord  a  =>  [a]  ->  [a] 
ordenaRapida  xs  = 

divideVenceras  ind  id  divide  combina  xs 
where 

ind  xs  =  length  xs  <=  1 

divide  (x:xs)  =  [[  y  I  y  <-  xs,  y  <=  x] , 

[  y  I  y  <-  xs,  y  >  x]] 

combina  (x:_)  [11,12]  =  11  ++  [x]  ++  12 


23.2.  Busqueda  en  espacios  de  estados 

23.2.1.  El  patron  de  busqueda  en  espacios  de  estados 

Descripcion  de  los  problemas  de  espacios  de  estados 

Las  caracteristicas  de  los  problemas  de  espacios  de  estados  son: 

■  un  conjunto  de  las  posibles  situaciones  o  nodos  que  constituye  el  espacio  de  esta¬ 
dos  (estos  son  las  potenciales  soluciones  que  se  necesitan  explorar), 

■  un  conjunto  de  movimientos  de  un  nodo  a  otros  nodos,  llamados  los  sucesores 
del  nodo, 

■  un  nodo  inicial  y 

■  un  nodo  objetivo  que  es  la  solucion. 

■  En  estos  problemas  usaremos  las  siguientes  librerfas  auxiliares: 

--  Nota:  Hay  que  elegir  una  implementacion  de  las  pilas. 
import  PilaConListas 
—  import  PilaConTipoDeDatoAlgebraico 

import  Data. Array 
import  Data. List  (sort) 
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El  patron  de  busqueda  en  espacios  de  estados 

■  Se  supone  que  el  grafo  implicito  de  espacios  de  estados  es  aciclico. 

■  (buscaEE  s  o  e)  es  la  lista  de  soluciones  del  problema  de  espacio  de  estado  defi- 
nido  por  la  funcion  sucesores  (s),  el  objetivo  (o)  y  estado  inicial  (e). 

buscaEE::  (Eq  node)  =>  (node  ->  [node])  ->  (node  ->  Bool) 

->  node  ->  [node] 

buscaEE  sucesores  esFinal  x  =  busca’  (apila  x  vacia) 
where  busca’  p 

I  esVacia  p  =  [] 

I  esFinal  (cima  p)  =  cima  p  :  busca’  (desapila  p) 

I  otherwise  =  busca’  (foldr  apila  (desapila  p) 

(sucesores  x)) 
where  x  =  cima  p 


23.2.2.  El  problema  del  8  puzzle 

El  problema  del  8  puzzle 

Para  el  8-puzzle  se  usa  un  cajon  cuadrado  en  el  que  hay  situados  8  bloques  cua- 
drados.  El  cuadrado  restante  estå  sin  rellenar.  Cada  bloque  tiene  un  numero.  Un  bloque 
adyacente  al  hueco  puede  deslizarse  hacia  él.  El  juego  consiste  en  transformar  la  posi¬ 
cion  inicial  en  la  posicion  final  mediante  el  deslizamiento  de  los  bloques.  En  particular, 
consideramos  el  estado  inicial  y  final  siguientes: 


+ — + — + — + 

I  2  |  6  I  3  I 

+ - + - + - + 

15  1  |4| 

+ - + - + - + 

I  1  I  7  I  8  I 

+ - + - + - + 

Estado  inicial 


+ — + — + — + 

I  1  I  2  |  3  | 

+ - + - + - + 

18  1  |4| 

+ - + - + - + 

I  7  I  6  I  5  I 

+ - + - + - + 

Estado  final 


■  Una  posicion  es  un  par  de  enteros. 


type  Posicion  =  (Int,Int) 


Un  tablero  es  un  vector  de  posiciones,  en  el  que  el  indice  indica  el  elemento  que 
ocupa  la  posicion. 
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type  Tablero  =  Array  Int  Posicion 


■  inicial8P  es  el  estado  inicial  del  8  puzzle.  En  el  ejemplo  es 

+ — + — + — + 

I  2  |  6  I  3  I 

+ - + - + - + 

15  1  |4| 

+ - + - + - + 

I  1  I  7  I  8  I 

+ - + - + - + 


inicial8P  : :  Tablero 

inicial8P  =  array  (0,8)  [(2, (1,3)) , (6, (2,3)) , (3, (3,3)) , 

(5, (1,2)), (0,(2, 2)), (4, (3, 2)), 
(1, (1,1)), (7, (2,1)), (8, (3,1))] 


■  f  inal8P  es  el  estado  final  del  8  puzzle.  En  el  ejemplo  es 

+ — + — + — + 

I  1  I  2  |  3  I 

+ - + - + - + 

18  1  |4| 

+ - + - + - + 

I  7  I  6  I  5  I 

+ - + - + - + 


f inal8P  : :  Tablero 

final8P  =  array  (0,8)  [(1, (1,3)) , (2, (2,3)) , (3, (3,3)) , 

(8, (1,2)), (0,(2, 2)), (4, (3, 2)), 
(7, (1,1)), (6, (2,1)), (5, (3,1))] 


■  (distancia  pi  p2)  es  la  distancia  Manhatan  entre  las  posiciones  pi  y  p2.  Por 
ejemplo, 

[distancia  (2,7)  (4,1)  8 

distancia  : :  Posicion  ->  Posicion  ->  Int 

distancia  (xl,yl)  (x2,y2)  =  abs  (xl-x2)  +  abs  (yl-y2) 
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■  (adyacente  pi  p2)  se  verifica  si  las  posiciones  pi  y  p2  son  adyacentes.  Por  ejem- 
plo, 

adyacente  (3,2)  (3,1)  ^  True 

adyacente  (3,2)  (1,2)  False 


adyacente  : :  Posicion  ->  Posicion  ->  Bool 
adyacente  pi  p2  =  distancia  pi  p2  ==  1 


■  (todosMovimientos  t)  es  la  lista  de  los  tableros  obtenidos  aplicåndole  al  tablero 
t  todos  los  posibles  movimientos;  es  decir,  intercambiando  la  posicion  del  hueco 
con  sus  adyacentes. 

todosMovimientos  : :  Tablero  ->  [Tablero] 
todosMovimientos  t  = 

[t//  [ (0 , t ! i) , (i , t ! 0) ]  I  i<-  [1 . .8] , 

adyacente  (t !  0)  (t ! i) ] 


■  Los  nodos  del  espacio  de  estados  son  listas  de  tableros  [tn, . . . ,  ti]  tal  que  ti  es  un 
sucesor  de  f;-_ 

data  Tableros  =  Est  [Tablero]  deriving  (Eq,  Show) 


■  (sucesores8P  e)  es  la  lista  de  sucesores  del  estado  e. 

sucesores8P  : :  Tableros  ->  [Tableros] 
sucesores8P  (Est (n@(t :ts) ) )  = 
filter  (noEn  ts) 

[Est  (t’:n)  |  t’  <-  todosMovimientos  t] 

where 

noEn  ts  (Est(t:_))  = 

not  (elem  (elems  t)  (map  elems  ts)) 


Solucion  del  8  puzzle  por  busqueda  en  espacios  de  estados 

■  (esFinal8P  e)  se  verifica  si  e  es  un  estado  final  del  8  puzzle. 
esFinal8P  : :  Tableros  ->  Bool 

esFinal8P  (Est  (n:_))  =  elems  n  ==  elems  final8P 


■  (buscaEE8P)  es  la  lista  de  las  soluciones  del  problema  del  8  puzzle. 
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buscaEE8P 

::  [[Posicion]] 

buscaEE8P 

=  map  elems  ls 

where 

((Est  ls):_)  =  buscaEE 

sucesores8P 

esFinal8P 

(Est  [inicial8P]) 

■  Nota:  No  termina. 

23.2.3.  El  problema  de  las  n  reinas 

El  problema  de  las  n  reinas 

■  El  problema  de  las  n  reinas  consiste  en  colocar  n  reinas  en  un  tablero  cuadrado  de 
dimensiones  n  por  n  de  forma  que  no  se  encuentren  mås  de  una  en  la  misma  linea: 
horizontal,  vertical  o  diagonal. 

■  Las  posiciones  de  las  reinas  en  el  tablero  se  representan  por  su  columna  y  su  fila. 

type  Columna  =  Int 
type  Fila  =  Int 


■  Una  solucion  del  problema  de  las  n  reinas  es  una  lista  de  posiciones. 


type  SolNR  =  [(Columna, Fila)] 


■  (valida  sp  p)  se  verifica  si  la  posicion  p  es  vålida  respecto  de  la  solucion  parcial 
sp;  es  decir,  la  reina  en  la  posicion  p  no  amenaza  a  ninguna  de  las  reinas  de  la  sp 
(se  supone  que  estån  en  distintas  columnas).  Por  ejemplo, 

valida  [(1,1)]  (2,2)  False 

valida  [(1,1)]  (2,3)  True 


valida  : :  SolNR  ->  (Columna, Fila)  ->  Bool 
valida  solp  (c,r)  =  and  [test  s  I  s  <-  solp] 
where  test  (c’,r’)  =  and  [c’+r’/=c+r, 

c ’ -r ’/=c-r , 
r’/=r] 


■  Los  nodos  del  problema  de  las  n  reinas  son  ternas  formadas  por  la  columna  de  la 
ultima  reina  colocada,  el  numero  de  columnas  del  tablero  y  la  solucion  parcial  de 
las  reinas  colocadas  anteriormente. 
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type  NodoNR  =  (Columna, Columna, SolNR) 


■  (sucesoresNR  e)  es  la  lista  de  los  sucesores  del  estado  e  en  el  problema  de  las  n 
reinas.  Por  ejemplo, 

ghci>  sucesoresNR  (1,4, []) 

[(2, 4,  [(1,1)]), (2, 4, [(1,2)]), (2,4, [(1,3)]), (2, 4, [(1,4)])] 

sucesoresNR  : :  NodoNR  ->  [NodoNR] 
sucesoresNR  (c,n,solp) 

=  [(c+l,n,solp++[(c,r)])  |  r  <-  [l..n], 

valida  solp  (c,r)] 


■  (esFinalNQ  e)  se  verifica  si  e  es  un  estado  final  del  problema  de  las  n  reinas. 

esFinalNQ  : :  NodoNR  ->  Bool 
esFinalNQ  (c, n, solp)  =  c  >  n 


Solucion  del  problema  de  las  n  reinas  por  EE 

■  (buscaEE_NQ  n)  es  la  primera  solucion  del  problema  de  las  n  reinas,  por  busqueda 
en  espacio  de  estados.  Por  ejemplo, 

ghci>  buscaEE_NQ  8 

[(1,1), (2, 5), (3, 8), (4, 6), (5, 3), (6, 7), (7, 2), (8, 4)] 


buscaEE_NQ  : :  Columna  ->  SolNR 
buscaEE_NQ  n  =  s 

where  ((_,_, s) :_)  =  buscaEE  sucesoresNR 

esFinalNQ 

( 1 ,  n ,  [] ) 


■  (nSolucionesNQ  n)  es  el  numero  de  soluciones  del  problema  de  las  n  reinas,  por 
busqueda  en  espacio  de  estados.  Por  ejemplo, 

I nSolucionesNQ  8  92 


nSolucionesNQ  : :  Columna  ->  Int 
nSolucionesNQ  n  = 

length  (buscaEE  sucesoresNR 
esFinalNQ 
(1  ,n,  [] ) ) 
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23.2.4.  El  problema  de  la  mochila 

El  problema  de  la  mochila 


■  Se  tiene  una  mochila  de  capacidad  de  peso  p  y  una  lista  de  n  objetos  para  colo- 
car  en  la  mochila.  Cada  objeto  i  tiene  un  peso  W[  y  un  valor  Vj.  Considerando  la 
posibilidad  de  colocar  el  mismo  objeto  varias  veces  en  la  mochila,  el  problema 
consiste  en  determinar  la  forma  de  colocar  los  objetos  en  la  mochila  sin  sobrepasar 
la  capacidad  de  la  mochila  colocando  el  måximo  valor  posible. 


■  Los  pesos  son  numero  enteros. 


■  Los  objetos  son  pares  formado  por  un  peso  y  un  valor. 


type  Objeto  =  (Peso,Valor) 


■  Una  solucion  del  problema  de  la  mochila  es  una  lista  de  objetos. 


type  SolMoch  =  [Objeto] 


■  Los  estados  del  problema  de  la  mochila  son  5-tuplas  de  la  forma  (v,p,l,o,s) 
donde 

•  v  es  el  valor  de  los  objetos  colocados, 

•  p  es  el  peso  de  los  objetos  colocados, 

•  1  es  el  lfmite  de  la  capacidad  de  la  mochila, 

•  o  es  la  lista  de  los  objetos  colocados  (ordenados  de  forma  creciente  segun  sus 
pesos)  y 

•  s  es  la  solucion  parcial. 

type  NodoMoch  =  (Valor , Peso , Peso , [Objeto] , SolMoch) 


(sucesoresMoch  e)  es  la  lista  de  los  sucesores  del  estado  e  en  el  problema  de  la 
mochila. 
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sucesoresMoch  : :  NodoMoch  ->  [NodoMoch] 
sucesoresMoch  (v ,p , limite , ob j  etos , solp) 

=  E (  v+v ’ , 

P+P’, 
limite , 

[o  I  o@(p’’,_)  <-  objetos , (p’ ’>=p’)] , 
(p’ ,v’) : solp  ) 

I  (p’ ,v’)  <-  objetos, 
p+p’  <=  limite] 


■  (esObjetivoMoch  e)  se  verifica  si  e  es  un  estado  final  el  problema  de  la  mochila. 

esObjetivoMoch  : :  NodoMoch  ->  Bool 
esObjetivoMoch  (_,p, limite ,( (p’ ,_):_) ,_)  = 
p+p’ >limite 


Solucion  del  problema  de  la  mochila  por  EE 

■  (buscaEE_Mochila  os  1)  es  la  solucion  del  problema  de  la  mochila  para  la  lista 
de  objetos  os  y  el  limite  de  capacidad  1.  Por  ejemplo, 

>  buscaEE.Mochila  [(2,3) , (3,5) , (4,6) , (5, 10)]  8 
([(5, 10.0), (3, 5.0)], 15.0) 

>  buscaEE.Mochila  [(2,3) , (3,5) , (5,6)]  10 
([(3,5.0) , (3,5.0) , (2,3.0) , (2,3.0)]  ,16.0) 

>  buscaEE.Mochila  [(2,2.8) , (3,4.4) , (5,6. 1)]  10 
([(3,4.4) , (3,4.4) , (2,2.8) , (2,2.8)] ,14.4) 


buscaEE_Mochila  ::  [Objeto]  ->  Peso  ->  (SolMoch, Valor) 
buscaEE_Mochila  objetos  limite  =  (sol,v) 
where 

(v, sol)  = 

maximum  (buscaEE  sucesoresMoch 
esObjetivoMoch 

(0,0, limite, sort  objetos,  [])) 
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23.3.  Busqueda  por  primero  el  mej  or 

23.3.1.  El  patron  de  busqueda  por  primero  el  mej  or 

El  patron  de  busqueda  por  primero  el  mej  or 

■  (buscaPM  s  o  e)  es  la  lista  de  soluciones  del  problema  de  espacio  de  estado  de- 
finido  por  la  funcion  sucesores  (s),  el  objetivo  (o)  y  estado  inicial  (e),  obtenidas 
buscando  por  primero  el  mejor. 

import  ColaDePrioridadConMonticulos 

buscaPM  ::  (Ord  nodo)  =>  (nodo  ->  [nodo] )  ->  (nodo  ->  Bool) 

->  nodo  ->  [(nodo,Int)] 

buscaPM  sucesores  esFinal  x  =  busca’  (inserta  x  vacia)  0 
where 

busca’  c  t 
I  esVacia  c  =  [] 

I  esFinal  (primero  c) 

=  ((primero  c) ,t+l) : (busca’  (resto  c)(t+l)) 

I  otherwise 

=  busca’  (foldr  inserta  (resto  c)  (sucesores  x))  (t+1) 
where  x  =  primero  c 

23.3.2.  El  problema  del  8  puzzle  por  BPM 

El  problema  del  8  puzzle  por  BPM 

■  (heurl  t)  es  la  suma  de  la  distancia  Manhatan  desde  la  posicion  de  cada  objeto 
del  tablero  t  a  su  posicion  en  el  estado  final.  Por  ejemplo, 

I heurl  inicial8P  12 


heurl  : 

Tablero  ->  Int 

heurl  b 

= 

sum 

[distancia  (b ! i)  (final8P!i) 

i  <-  [0. .8]] 

■  Dos  estados  se  consideran  iguales  si  tienen  la  misma  heurfstica. 
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■  Un  estado  es  menor  o  igual  que  otro  si  tiene  una  heurfstica  menor  o  igual. 


instance  Ord  Tableros  where 

Est  (tl:_)  <=  Est  (t2:_)  =  heurl  ti  <=  heurl  t2 


■  (buscaPM_8P)  es  la  lista  de  las  soluciones  del  8  puzzle  por  busqueda  primero  el 
mej  or. 

buscaPM_8P  =  buscaPM  sucesores8P 

esFinal8P 

(Est  [inicial8P]) 


■  (nSolucionesPM_8P)  es  el  numero  de  soluciones  del  8  puzzle  por  busqueda  pri¬ 
mero  el  mejor.  Por  ejemplo, 

I nSolucionesPM_8P  ^  43 


nSolucionesPM_8P  =  length  ls 

where  (((Est  ls),_):_)  = 

buscaPM  sucesores8P 

esFinal8P 

(Est  [inicial8P]) 

23.4.  Busqueda  en  escalada 

23.4.1.  El  patron  de  busqueda  en  escalada 

El  patron  de  busqueda  en  escalada 

■  (buscaEscalada  s  o  e)  es  la  lista  de  soluciones  del  problema  de  espacio  de  esta¬ 
do  definido  por  la  funcion  sucesores  (s),  el  objetivo  (o)  y  estado  inicial  (e),  obteni- 
das  buscando  por  escalada. 

buscaEscalada  ::  Ord  nodo  =>  (nodo  ->  [nodo] ) 

->  (nodo  ->  Bool)  ->  nodo  ->  [nodo] 
buscaEscalada  sucesores  esFinal  x  = 
busca’  (inserta  x  vacia)  where 
busca’  c 

I  esVacia  c  =  [] 

I  esFinal  (primero  c)  =  [primero  c] 

I  otherwise 
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busca’  (foldr  inserta  vacia  (sucesores  x)) 
where  x  =  primero  c 


23.4.2.  El  problema  del  cambio  de  monedas  por  escalada 

■  El  problema  del  cambio  de  monedas  consiste  en  determinar  como  conseguir  una 
cantidad  usando  el  menor  numero  de  monedas  disponibles. 

■  Las  monedas  son  numeros  enteros. 
type  Moneda  =  Int 


■  monedas  es  la  lista  del  tipo  de  monedas  disponibles.  Se  supone  que  hay  un  numero 
infinito  de  monedas  de  cada  tipo. 

monedas  : :  [Moneda] 

monedas  =  [1,2,5,10,20,50,100] 


■  Las  soluciones  son  listas  de  monedas. 


type  Soluciones  =  [Moneda] 


■  Los  estados  son  pares  formados  por  la  cantidad  que  falta  y  la  lista  de  monedas 
usadas. 

type  NodoMonedas  =  (Int,  [Moneda]) 


■  (sucesoresMonedas  e)  es  la  lista  de  los  sucesores  del  estado  e  en  el  problema  de 
las  monedas.  Por  ejemplo, 

ghci>  sucesoresMonedas  (199,  []) 

[(198, [1] ) , (197, [2] ) , (194,  [5] ) , (189,  [10] ) , 

(179,  [20] ) , (149, [50] ) , (99, [100] )] 


sucesoresMonedas 

: :  NodoMonedas  ->  [NodoMonedas] 

sucesoresMonedas 

(r,p)  = 

l — l 

i 

o 

o 

*6 

c  <-  monedas,  r-c  >=  0] 

(esFinalMonedas  e)  se  verifica  si  e  es  un  estado  final  del  problema  de  las  mene- 
das. 
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esFinalMonedas 

: :  NodoMonedas  ->  Bool 

esFinalMonedas 

o 

ii 

ii 

> 

ii 

/'-'N 

1 

> 

_ _ ' 

■  (cambio  n)  es  la  solucion  del  problema  de  las  monedas  por  busqueda  en  escalada. 
Por  ejemplo, 

I cambio  199  [2,2,5,20,20,50,100] 


cambio  : :  Int  ->  Soluciones 

cambio  n  = 

snd  (head  (buscaEscalada 

sucesoresMonedas 

esFinalMonedas 

(n,  [] ) ) ) 

23.4.3.  El  algoritmo  de  Prim  del  årbol  de  expansion  mmimo  por  esca¬ 
lada 


■  Ejemplo  de  grafo. 


gi  : :  Graf o  Int  Int 

gi  =  creaGrafo  True  (1,5) 

[(1,2, 12), (1,3, 34), (1,5, 78), 

(2, 4, 55), (2, 5, 32), 

(3, 4, 61), (3, 5, 44), 

(4,5,93)] 

■  Una  arista  esta  formada  dos  nodos  junto  con  su  peso. 


type  Arista  a  b  =  (a,a,b) 


■  Un  nodo  (NodoAEM  (p,t  ,r, aem) )  estå  formado  por 

•  el  peso  p  de  la  ultima  arista  anadida  el  årbol  de  expansion  mmimo  (aem), 

•  la  lista  t  de  nodos  del  grafo  que  estån  en  el  aem, 

•  la  lista  r  de  nodos  del  grafo  que  no  estån  en  el  aem  y 

•  el  aem. 

type  NodoAEM  a  b  =  (b, [a] , [a] , [Arista  ab]) 
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■  (sucesoresÅEM  g  n)  es  la  lista  de  los  sucesores  del  nodo  n  en  el  grafo  g.  Por  ejem- 
plo, 

ghci>  sucesoresÅEM  gi  (0,  [1] ,  [2 . . 5] , [] ) 

[(12, [2,1], [3, 4, 5], [(1,2, 12)]), 

(34, [3,1], [2, 4, 5], [(1,3, 34)]), 

(78,  [5,1] , [2,3,4] , [(1,5,78)])] 


■  (esFinalAEM  n)  se  verifica  si  n  es  un  estado  final;  es  decir,  si  no  queda  ningun 
elemento  en  la  lista  de  nodos  sin  colocar  en  el  årbol  de  expansion  minimo. 


■  (prim  g)  es  el  årbol  de  expansion  minimo  del  grafo  g,  por  el  algoritmo  de  Prim 
como  busqueda  en  escalada.  Por  ejemplo, 

I  prim  gi  [(2, 4, 55), (1,3, 34), (2, 5, 32), (1,2, 12)] 


294 


Tema  24 


Técnicas  de  diseno  ascendente  de 
algoritmos 

24.1.  Programacion  dinåmica 

24.1.1.  Introduccion  a  la  programacion  dinåmica 

Divide  y  vencerås  vs  programacion  dinåmica 

■  Inconveniente  de  la  técnica  divide  y  vencerås:  la  posibilidad  de  crear  idénticos 
supbroblemas  y  repetition  del  trabajo. 

■  Idea  de  la  programacion  dinåmica:  resolver  primero  los  subproblemas  menores, 
guardar  los  resultados  y  usar  los  resultados  de  los  subproblemas  intermedios  para 
resolver  los  mayores. 

Cålculo  de  Fibonacci  por  divide  y  vencerås 

■  Definition  de  Fibonacci  por  divide  y  vencerås. 

fib  0  =  0 
fib  1  =  1 

fib  n  =  fib  (n-1)  +  fib  (n-2) 


■  Cålculo  de  (fib  4)  por  divide  y  vencerås 


fib  4 

/  \ 
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fib  3  fib  2 

/  \  /  \ 

fib  2  fib  1  fib  1  fib  O 

/  \ 

fib  1  fib  O 

Calcula  2  veces  (fib  2)  y  3  veces  (fib  1)  y  (fib  0). 

Cålculo  de  Fibonacci  por  programacion  dinåmica 

■  Cålculo  de  (fib  4)  por  programacion  dinåmica 

fib  0 
I  fib  1 

I  I 

+ - +===  fib  2 

I  I 

+ - +===  fib  3 

I  I 

+ - +===  fib  4 

24.1.2.  El  patron  de  la  programacion  dinåmica 


--  Hay  que  elegir  una  implementacion  de  TAD  Tabla 

—  import  TablaConFunciones  as  Tabla 
import  TablaConListasDeAsociacion  as  Tabla 

—  import  TablaConMatrices  as  Tabla 

import  Data. Array 


Cabecera  del  modulo: 


module  Dinamica  (module  Tabla,  dinamica)  where 


Librerfas  auxiliares 


■  El  patron  de  la  programacion  dinåmica 


dinamica  ::  Ix  i  =>  (Tabla  i  v  ->  i  ->  v)  ->  (i, i) 

->  Tabla  i  v 

dinamica  calcula  cotas  =  t 

where  t  =  tabla  [(i, calcula  ti)  I  i  <-  range  cotas] 
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■  (calcula  t  i)  es  el  valor  del  mdice  i  calculado  a  partir  de  los  anteriores  que  ya 
se  encuentran  en  la  tabla  t. 

■  cotas  son  las  cotas  de  la  matriz  t  en  la  que  se  almacenan  los  valores  calculados. 


24.2.  Fibonacci  como  ejemplo  de  programacion  dinåmica 

24.2.1.  Definicion  de  Fibonacci  mediante  programacion  dinåmica 

Definicion  de  Fibonacci  mediante  programacion  dinåmica 

■  Importacion  del  patron  de  programacion  dinåmica 
import  Dinamica 


■  (f  ib  n)  es  el  n-ésimo  término  de  la  sucesion  de  Fibonacci,  calculado  mediante 
programacion  dinåmica.  Por  ejemplo, 

|  f  ib  8^21 

fib  : :  Int  ->  Int 
fib  n  =  valor  t  n 

where  t  =  dinamica  calculaFib  (cotasFib  n) 


■  (calculaFib  t  i)  es  el  valor  de  i-ésimo  término  de  la  sucesion  de  Fibonacci  cal¬ 
culado  mediante  la  tabla  t  que  contiene  los  anteriores.  Por  ejemplo, 

calculaFib  (tabla  [] )  0  0 

calculaFib  (tabla  [(0,0) ,  (1, 1) ,  (2, 1) ,  (3,2)]  4-^3 

Ademås, 

ghci>  dinamica  calculaFib  (0,6) 

Tbl  [(0,0), (1,1), (2,1), (3, 2), (4, 3), (5, 5), (6, 8)] 


calculaFib  : :  Tabla  Int  Int  ->  Int  ->  Int 
calculaFib  t  i 
I  i  <=  1  =  i 

I  otherwise  =  valor  t  (i-1)  +  valor  t  (i-2) 


(cotasFib  n)  son  las  cotas  del  vector  que  se  necesita  para  calcular  el  n-ésimo 
término  de  la  sucesion  de  Fibonacci  mediante  programacion  dinåmica. 
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cotasFib  ::  Int  ->  (Int, Int) 
cotasFib  n  =  (0,n) 


Definicion  de  Fibonacci  mediante  divide  y  vencerås 

■  (f  ibR  n)  es  el  n-ésimo  término  de  la  sucesion  de  Fibonacci  calculado  mediante 
divide  y  vencerås. 

fibR  : :  Int  ->  Int 
f ibR  0=0 
fibR  1=1 

fibR  n  =  fibR  (n-1)  +  fibR  (n-2) 


■  Comparacion: 

ghci>  fib  30 
832040 

(0.01  secs,  0  bytes) 
ghci>  fibR  30 
832040 

(6.46  secs,  222602404  bytes) 

Definicion  de  Fibonacci  mediante  evaluacion  perezosa 

■  f  ibs  es  la  lista  de  los  términos  de  la  sucesion  de  Fibonacci.  Por  ejemplo, 

Itake  10  fibs  [0,1,1,2,3,5,8,13,21,34] 


f ibs  : :  [Int] 

fibs  =  0:1: [x+y  |  (x,y)  <-  zip  fibs  (tail  fibs)] 


■  (fib’  n)  es  el  n-ésimo  término  de  la  sucesion  de  Fibonacci,  calculado  a  partir  de 
fibs.  Por  ejemplo, 

I  fib’  8  ^  21 


fib’  : :  Int  ->  Int 
fib’  n  =  fibs ! !n 


Comparaciones: 
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ghci>  fib  30 
832040 

(0.02  secs,  524808  bytes) 

ghci>  fib’  30 

832040 

(0.01  secs,  542384  bytes) 

ghci>  fibR  30 

832040 

(6.46  secs,  222602404  bytes) 

24.3.  Producto  de  cadenas  de  matrices  (PCM) 

24.3.1.  Descripcion  del  problema  PCM 

Descripcion  del  problema 

■  Para  multiplicar  una  matriz  de  orden  m*  p  y  otra  de  orden  p  *  nse  necesitan  mnp 
multiplicaciones  de  elementos. 

■  El  problema  del  producto  de  una  cadena  de  matrices  (en  inglés,  "matrix  chain 
multiplication")  consiste  en  dada  una  sucesion  de  matrices  encontrar  la  manera 
de  multiplicarlas  usando  el  menor  numero  de  productos  de  elementos. 

■  Ejemplo:  Dada  la  sucesion  de  matrices 

A(30xl),  B(lx40),  C(40xl0),  D(10x25) 


las  productos 

necesarios  en 

las  posibles 

asociaciones  son 

<(AB)C)D 

30x1x40 

+ 

30x40x10 

+ 

30x10x25  = 

20700 

A(B(CD» 

40x10x25 

+ 

1x40x25 

+ 

30x1x25  = 

11750 

(AB)(CD) 

30x1x40 

+ 

40x10x25 

+ 

30x40x25  = 

41200 

A((BC)D) 

1x40x10 

+ 

1x10x25 

+ 

30x1x25  = 

1400 

(A(BC))D 

1x40x10 

+ 

30x1x10 

+ 

30x10x25  = 

8200 

El  algoritmo  del  PCM 

■  El  PCM  correspondiente  a  la  sucesion  do, ,  dn  consiste  en  encontrar  la  manera  de 
multiplicar  una  sucesion  de  matrices  A\, ...  ,An  (tal  que  el  orden  de  A±  es  \  x  d{) 
usando  el  menor  numero  de  productos  de  elementos. 

■  Sea  Cj'j  el  minimo  numero  de  multiplicaciones  necesarias  para  multiplicar  la  cade¬ 
na  Aj, . . . ,  Aj  (1  <  i  <  j  <  n ). 
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■  Relacion  de  recurrencia  de  c(//: 

Ci,i  =  0 

c*  4  =  minimo{ci ^  +  d^id^djli  <  k  <  j} 

■  La  solucion  del  problema  es  Cy„. 

24.3.2.  Solucion  del  PCM  mediante  programacion  dinåmica 

■  Importacion  de  librerfas  auxiliares: 

import  Dinamica 


■  Cadena  representa  el  producto  de  una  cadena  de  matrices.  Por  ejemplo, 

P  (Å  1)  (P  (A  2)  (A  3))  (A1*(A2*A3)) 

P  (P  (A  1)  (A  2))  (A  3)  ((A1*A2)*A3) 


data  Cadena  =  A  Int 

I  P  Cadena  Cadena 

instance  Show  Cadena  where 

show  (A  x)  =  "A"  ++  show  x 

show  (P  pi  p2)  =  concat  ["(",show  pi,"*", show  p2,")"] 


■  Los  indices  de  la  matriz  de  cålculo  son  de  la  forma  ( i ,  j )  y  sus  valores  (v,k) 
donde  v  es  el  minimo  numero  de  multiplicaciones  necesarias  para  multiplicar  la 
cadena  A(, . . . ,  Aj  y  k  es  la  posicion  donde  dividir  la  cadena  de  forma  optima. 

type  IndicePCM  =  (Int, Int) 
type  ValorPCM  =  (Int, Int) 


■  (pcm  ds)  es  el  par  formado  por  el  minimo  numero  de  multiplicaciones  elementa- 
les  para  multiplicar  una  sucesion  de  matrices  A\, ...  ,An  (tal  que  el  orden  de  A,  es 
di- 1  x  di  y  ds  =  [do, . . . ,  dn]).  Por  ejemplo, 

| pcm  [30,1,40,10,25]  (1400, (Al* ( (A2*A3) *A4) ) ) 

pcm  ::  [Int]  ->  (Int,  Cadena) 
pcm  ds  =  (v,  cadena  tin) 

where  n  =  length  ds  -  1 

t  =  dinamica  (calculaPCM  ds)  (cotasPCM  n) 

(v,_)  =  valor  t  (l,n) 
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■  (calculaPCM  ds  t  (i ,  j ) )  es  el  valor  del  indice  (i ,  j)  calculado  a  partir  de  la  lista 
ds  de  dimensiones  de  las  matrices  y  la  tabla  t  de  valores  previamente  calculados. 

calculaPCM  : :  [Int]  ->  Tabla  IndicePCM  ValorPCM 
->  IndicePCM  ->  ValorPCM 
calculaPCM  ds  t  (i,j) 

I  i  ==  j  =  (0 , i) 

I  otherwise  = 

minimum  [(fst(valor  t  (i,k)) 

+  fst (valor  t  (k+l,j)) 

+  ds!!(i-l)  *  ds ! ! k  *  ds!!j,  k) 

I  k  <-  [i. .j-1]] 


■  (cotasPCM  n)  son  las  cotas  de  los  mdices  para  el  producto  de  una  cadena  de  n 
matrices. 

cotasPCM  ::  Int  ->  (IndicePCM, IndicePCM) 
cotasPCM  n  =  ( (1 , 1) , (n,n) ) 


■  (cadena  t  i  j )  es  la  cadena  que  resultar  de  agrupar  las  matrices  Au . . . ,  Aj  segun 
los  valores  de  la  tabla  t. 


cadena  : :  Tabla  IndicePCM  ValorPCM  ->  Int  ->  Int  ->  Cadena 
cadena  t  i  j 

I  i  ==  j-1  =  P  (A  i)  (A  j) 

I  k  ==  i  =  P  (A  i)  (cadena  t  (i+1)  j) 

I  k  ==  j-1  =  P  (cadena  t  i  (j-1))  (A  j) 

I  otherwise  =  P  (cadena  t  i  (k-1))  (cadena  t  k  j) 

where  (_,k)  =  valor  t  (i,j) 


■  (pcm’  ds)  es  la  lista  de  los  mdices  y  valores  usados  en  el  cålculo  del  minimo  nu- 
mero  de  multiplicaciones  necesarias  para  multiplicar  una  sucesion  de  matrices 
A\, . . .  ,An  (tal  que  el  orden  de  A[  es  dt_\  x  dj  y  ds  =  [do, . . . ,  dn]).  Por  ejemplo, 

ghci>  pcm’  [30,1,40,10,25] 

[((1,1),  (0,1)), ((1,2), (1200,1)), ((1,3), (700,1)), ((1,4), (1400,1)), 

((2, 2), (0,2)), ((2, 3), (400, 2)), ((2, 4), (650, 3)), 

((3, 3), (0,3)), ((3, 4), (10000, 3)), 

((4, 4), (0,4))] 


pcm’  ::  [Int]  ->  [((Int,  Int),  ValorPCM)] 

pcm’  ds  =  [((i, j) , valor  t  (i , j ) )  I  i  <-  [l..n],  j  <-  [i..n]] 
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where  n  =  length  ds  -  1 

t  =  dinamica  (calculaPCM  ds)  (cotasPCM  n) 


24.3.3.  Solucion  del  PCM  mediante  divide  y  vencerås 

■  (pcmDyV  ds)  es  la  solucion  del  PCM  correspondiente  a  ds  mediante  divide  y  ven¬ 
cerås.  Por  ejemplo, 

| pcmDyV  [30,1,40,10,25]  (1040 , (Al* ( (A2*A3) *A4) ) ) 

pcmDyV  ::  [Int]  ->  (Int,  Cadena) 
pcmDyV  ds  =  cadenaDyV  ds  1  n 
where  n  =  length  ds  -  1 


■  cadenaDyV  ds  i  j )  es  la  solucion  del  PCM  correspondiente  a  [di, . . .  ,dj\.  Por  ejem¬ 
plo, 

cadenaDyV  [30,1,40,10,25]  14  ^  (1040 , (Al* ( (A2*A3) *A4) ) ) 

cadenaDyV  [30,1,40,10,25]  2  4  (290, ( (A2*A3) *A4) ) 


cadenaDyV  ::  [Int]  ->  Int  ->  Int  ->  (Int,  Cadena) 
cadenaDyV  ds  i  j 

|  i  ==  j  =  (0,  Å  i) 

I  i  ==  j-1  =  (ds! !l*ds! ! 2,  P  (A  i)  (A  j)) 

I  k  ==  i  =  (v,  P  (A  i)  (subcadena  (i+1)  j)) 

I  k  ==  j-1  =  (v,  P  (subcadena  i  (j-1))  (A  j)) 

I  otherwise  =  (v,  P  (subcadena  i  (k-1))  (subcadena  k  j)) 

where  (v,k)  =  minimum  [((valor  i  k) 

+  (valor  (k+1)  j) 

+  ds ! ! (i- 1)  *  ds ! ! k  *  ds!!j,  k) 

I  k  <-  [i.  .j-1]] 

valor  p  q  =  fst  (cadenaDyV  ds  p  q) 

subcadena  p  q  =  snd  (cadenaDyV  ds  p  q) 


Comparacion  de  las  métodos  de  solucionar  el  PCM 

ghci>  :set  +s 

ghci>  fst  (pcm  [1..20]) 

2658 
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(0.80  secs,  39158964  bytes) 

ghci>  fst  (pcmDyV  [1..20]) 

1374 

(2871.47  secs ,  133619742764  bytes) 

24.4.  Årboles  binarios  de  busqueda  optimales  (ABBO) 

24.4.1.  Descripcion  del  problema  de  ABBO 

Descripcion  del  problema  de  ABBO 

■  Para  cada  clave  Cj,  sea  pj  la  probabilidad  de  acceso  a  c*. 

■  Un  årbol  binario  de  busqueda  es  optimal  (ABBO)  si  la  media  del  numero  de  com- 
paraciones  para  todas  las  claves 

a{T)  =  ILdiPi 

donde  d[  es  la  distancia  de  la  clave  c;  a  la  raiz  (es  decir,  el  numero  de  comparacio- 
nes  necesarias  para  llegar  a  c\),  es  minima. 

El  algoritmo  del  ABBO 

■  Sea  Cjtj  el  minimo  val  or  a{T)  cuando  el  årbol  T  contiene  las  claves  Cj, . . . ,  c  j. 

■  Relacion  de  recurrencia  para  calcular  chp 

•  Si  i  >  j ,  Cij  =  0. 

•  Si  i  =  j,  cirj  =  pi. 

•  Si  i  <  j, 

l=k- 1  l=j 

Ci,j  =  mini<k<j((ci/k_i  +  Pi)  +  (ck+i,j  +  E  Pi) +  Pk) 

l=i  l=k+ 1 

•  El  tercer  caso  puede  simplificarse 

H 

Ci,j  =  mini<k<j{ciik-i  +  ck+hj)  +  E  P(l) 
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24.4.2.  Solucion  del  ABBO  mediante  programacion  dinåmica 

■  En  la  matriz  de  cålculo  del  ABBO  el  valor  (v,k)  correspondiente  al  indice  (i ,  j) 
indica  que  v  es  el  minimo  valor  a  (T)  cuando  el  årbol  T  contiene  las  claves  c;-,  . . .  ,C; 
y  que  la  division  optima  se  obtiene  dividiendo  las  claves  en  dos  mediante  c*-. 

type  Indice  =  (Int,Int) 
type  Valor  =  (Float,Int) 


■  (ABB  a)  es  el  tipo  de  los  årboles  binarios  de  busqueda  sobre  a. 

data  ABB  a  =  Vacio 

I  Nodo  a  (ABB  a)  (ABB  a) 
deriving  Show 


■  (abbo  cs  ps)  es  el  par  formado  por  un  ABBO  correspondiente  a  la  lista  de  claves 
c  s  cuyas  correspondientes  probabilidades  de  acceso  son  los  elementos  de  la  lista 
ps  y  por  su  valor.  Por  ejemplo, 

ghci>  abbo  ejProblema 
(Modo  4  (Nodo  1  Vacio 

(Modo  3  Vacio  Vacio)) 

(Nodo  10 

(Modo  8  Vacio  Vacio) 

(Modo  15 

(Modo  11  Vacio  Vacio) 

Vacio) ) , 

2.15) 

■  Definicion  de  abbo: 

abbo  ::  Problema  ->  (ABB  Int,Float) 
abbo  pb  =  (solucion  c  t  (l,n)  ,  fst  (valor  t  (l,n))) 
where  (cs,ps)  =  pb 

n  =  length  ps 

c  =  listArray  (l,n)  cs 

p  =  listArray  (l,n)  ps 

t  =  dinamica  (calcula  p)  (cotas  n) 


(calcula  p  t  (i ,  j ) )  es  el  valor  del  indice  (i ,  j )  donde  p  es  el  vector  de  proba¬ 
bilidades  y  t  es  la  tabla  calculada  hasta  el  momento. 
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calcula  : :  Array  Int  Float  ->  Tabla  Indice  Valor 
->  Indice  ->  Valor 
calcula  p  t  (i,j) 

I  i  >  j  =  (0.0,0) 

I  i  ==  j  =  (pli, i) 

I  otherwise  =  sumal  (minimum  [(fst(valor  t  (i,k-l)) 

+  fst (valor  t  (k+l,j)),  k) 
I  k  <-  [i. .j]]) 
(sumaSegmento  i  j  p) 
where  sumal  (x,y)  z  =  (x+z,y) 


■  (sumaSegmento  i  j  p)  es  la  suma  de  los  valores  de  los  elementos  del  vector  p 
desde  la  posicion  i  a  la  j .  Por  ejemplo. 


>  sumaSegmento  2  4  (array  (1,5) 

[(i , fromintegral  i/2) 


4.5 


I  i  <-  [1. .5]]) 


sumaSegmento  : :  Int  ->  Int  ->  Array  Int  Float  ->  Float 
sumaSegmento  i  j  p  =  sum  [p ! 1  I  1  <-  [i..j]] 


■  (cotas  n)  son  las  cotas  de  la  matriz  revesaria  para  resolver  el  problema  del  årbol 
de  busqueda  minimal  optimo  con  n  claves. 

cotas  ::  Int  ->  ( (Int , Int) , (Int , Int) ) 
cotas  n  =  ( (1 ,0) , (n+1 ,n) ) 


■  (solucion  cs  c  (i,  j))  es  el  ABBO  correspondiente  a  las  claves  c(i),...,c(j)  a 
partir  de  la  tabla  de  cålculo  t. 

solucion  : :  Array  Int  Int  ->  Tabla  Indice  Valor 
->  Indice  ->  ABB  Int 
solucion  cs  t  (i,j) 

I  i  >  j  =  Vacio 

I  i  ==  j  =  Nodo  c  Vacio  Vacio 

I  otherwise  =  Nodo  c  (solucion  cs  t  (i,k-l)) 

(solucion  cs  t  (k+l,j)) 

where  (_,k)  =  valor  t  (i,j) 
c  =  cs  !  k 


306 


24.5.  Caminos  mmimos  entre  todos  los  pares  de  nodos  de 
un  grafo(CM) 

24.5.1.  Descripcion  del  problema 

■  Cålculo  de  los  caminos  de  coste  mmimo  entre  todos  los  pares  de  nodos  de  un  grafo 
no  dirigido. 

■  Notacion: 

•  cu  es  el  mmimo  coste  del  camino  del  vértice  i  al  j. 

{0,  si  i  =  j 

peso  del  arco  entre  i  y  j,  si  i  ^  j  y  hay  arco  de  i  a  j 
oo,  en  otro  caso 

•  Ci;k  es  el  mmimo  coste  del  camino  del  vértice  i  al  j,  usando  los  vértices 
1  k. 

■  Relacion  de  recurrencia  para  calcular  p 

•  Ci,j,  0  =  V  i,j 

•  Ci,j,k  Wlift  { Ci^k—  i  j /  Ci'k:k—  1  “I ~  Ck,j,k—l} 

■  El  algoritmo  se  conoce  como  el  algoritmo  de  Floyd. 

24.5.2.  Solucion  del  problema  de  los  caminos  minimos  (CM) 

■  Importacion  de  librerias  auxiliares: 

import  Dinamica 

--  Nota:  Elegir  una  implementacion  de  los  graf os. 
import  GrafoConVectorDeAdyacencia 
—  import  GrafoConMatrizDeAdyacencia 


■  Ejemplos  de  grafos  para  el  problema: 

ejlGrafo  ::  Graf o  Int  Int 
ejlGrafo  =  creaGrafo  True  (1,6) 

[(i,j,(v! ! ( i— 1) ) ! ! ( j  —  1) ) 

I  i  <-  [1. .6] ,  j  <-  [1. .6]] 
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v: : [[Int]] 


[[ 

0, 

4, 

1, 

6, 

100,100] , 

[ 

4, 

0, 

1, 

100, 

1 — 1 
o 
o 

T — 1 

LO 

[ 

1, 

1, 

0,100, 

8, 

2], 

[ 

6, 

100,100, 

0,100, 

2], 

[100, 

5, 

8,100, 

0, 

5], 

[100,100, 

2, 

2, 

5, 

0]] 

■  Ejemplos  de  grafos  para  el  problema: 

ej2Grafo  : :  Graf o  Int  Int 
ej2Grafo  =  creaGrafo  True  (1,6) 

[(i,j  ,  (v  ’  !  !  ( i  —  1 )  )  !  !  ( j  —  1)  ) 

I  i  <-  [1. .6] ,  j  <-  [1. .6]] 

v’ : :  [[Int]] 

v’  =[[  0,  4,100,100,100,  2] , 

[  1,  0,  3,  4,100,100], 

[  6,  3,  0,  7,100,100], 

[  6,100,100,  0,  2,100], 

[100,100,100,  5,  0,100], 

[100,100,100,  2,  3,  0]] 


■  En  la  matriz  del  cålculo  del  camino  mmimo,  los  fndices  son  de  la  forma  (i ,  j  ,k) 
y  los  valores  de  la  forma  (v,xs)  representando  que  el  camino  mmimo  desde  el 
vértice  i  al  j  usando  los  vértices  1,  . . . ,  k  tiene  un  coste  v  y  estå  fomado  por  los 
vértices  xs. 

type  IndiceCM  =  (Int , Int , Int) 
type  ValorCM  =  (Int, [Int]) 


■  (caminosMinimos  g)  es  la  lista  de  los  caminos  mfnimos  entre  todos  los  nodos  del 
grafo  g  junto  con  sus  costes.  Por  ejemplo, 

ghci>  caminosMinimos  ejlGrafo 

[((1,2), (2, [1,3, 2])),  ( (1 ,3) , (1 ,  [1 ,3] ) ) ,  ((1,4), (5, [1,3, 6, 4])), 

((1,5),(7,[1,3,2,5])),((1,6),(3,[1,3,6])),((2,3),(1,[2,3])), 

((2, 4), (5, [2, 3, 6, 4])), ((2, 5), (5, [2, 5])),  ( (2, 6) , (3 ,  [2 ,3, 6] ) ) , 

((3,4) , (4, [3,6,4])) ,  ((3,5) , (6,  [3,2,5])) ,((3,6), (2,  [3,6])) , 

((4, 5), (7, [4, 6, 5])),  ((4, 6), (2, [4, 6])),  ( (5,6) , (5,  [5,6] ))] 
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caminosMinimos  ::  (Grafo  Int  Int)  ->  [((Int, Int),  ValorCM)] 
caminosMinimos  g  = 

[((i,j),  valor  t  (i,j,n))  I  i  <-  [l..n],  j  <-  [i+l..n]] 
where  n  =  length  (nodos  g) 

t  =  dinamica  (calculaCM  g)  (cotasCM  n) 


■  (calculaCM  g  t  (i ,  j  ,k))  es  el  valor  del  camino  mmimo  desde  el  vértice  i  al  j 
usando  los  vértices  1,  . . . ,  k  del  grafo  g  y  la  tabla  t  de  los  valores  anteriores  al 
mdice  (i, j ,k). 

calculaCM  : :  (Grafo  Int  Int)  ->  Tabla  IndiceCM  ValorCM 
->  IndiceCM  ->  ValorCM 
calculaCM  g  t  (i,j,k) 

I  k==0  =  (peso  i  j  g,  if  i==j  then  [i]  else  [i , j ] ) 

I  vl<=v2  =  (vl,p) 

I  otherwise  =  (v2,pl++p2) 

where  (vl,p)  =  valor  t  (i,j,k-l) 

(a,pl)  =  valor  t  (i,k,k-l) 

(b,_:p2)  =  valor  t  (k,j,k-l) 

v2  =  a+b 


■  (cotasCM  n)  son  las  cotas  de  la  matriz  para  resolver  el  problema  de  los  caminos 
mmimos  en  un  grafo  con  n  nodos. 

cotasCM  ::  Int  ->  ( (Int , Int , Int) , (Int , Int , Int) ) 
cotasCM  n  =  ( (1 , 1,0) , (n,n,n) ) 


24.6.  Problema  del  viajante  (PV) 

24.6.1.  Descripcion  del  problema 

■  Dado  un  grafo  no  dirigido  con  pesos  encontrar  una  camino  en  el  grafo  que  visite 
todos  los  nodos  exactamente  una  vez  y  cuyo  coste  sea  mmimo. 

■  Notacion: 

•  Los  vértices  del  grafo  son  1,2, ...  ,n. 

{0,  si  i  =  j 

peso  del  arco  entre  i  y  j,  si  i  ^  j  y  hay  arco  de  i  a  j 
oo,  en  otro  caso 
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•  El  vértice  inicial  y  final  es  el  n. 

•  Cj'g  es  el  camino  mås  corto  que  comienza  en  i,  termina  en  n  y  pasa  exactamen- 
te  una  vez  por  cada  uno  de  los  vértices  del  conjunto  S. 

■  Relacion  de  recurrencia  de  C/5 : 

•  C  i,®  "  Vi, nr  ^1  i  7^  W. 

•  ci/S  =  min {p i  j  +  CjrS_{j}  :  j  G  S},  si  i  /  n,  i  g  S. 

■  La  solucion  es  cnpx,...,n-i}- 

24.6.2.  Solucion  del  problema  del  viajante  (PV) 

■  Importacion  de  librerias  auxiliares 

import  Dinamica 

--  Nota:  Elegir  una  implementacion  de  los  graf os. 
import  GrafoConVectorDeAdyacencia 
—  import  GrafoConMatrizDeAdyacencia 


■  Nota:  Para  el  PV  se  usarå  la  representacion  de  los  de  conjuntos  de  enteros  como 
numeros  enteros  que  se  describe  a  continuacion. 

■  Los  conjuntos  se  representan  por  numeros  enteros. 
type  Conj  =  Int 


■  (conj2Lista  c)  es  la  lista  de  los  elementos  del  conjunto  c.  Por  ejemplo. 


conj2Lista  24 

[3,4] 

conj2Lista  30 

[1,2, 3, 4] 

conj2Lista  22 

[1,2,4] 

conj2Lista  :  : 

Conj 

->  [Int] 

conj2Lista  s  = 

=  c21 

s  0 

where 

c21  0  _ 

=  [] 

c21  n  i 

1  odd 

n  =  i  : 

c21  (n  £div£  2)  (i+1) 

1  otherwise  =  c21 

(n  £div£  2)  (i+1) 
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■  maxConj  es  el  måximo  numero  que  puede  pertenecer  al  conjunto.  Depende  de  la 
implementacion  de  Haskell. 

maxConj  : :  Int 
maxConj  = 

truncate  (logBase  2  (fromintegral  maxlnt))  -  1 
where  maxlnt  =  maxBound : : Int 


■  vacio  es  el  conjunto  vado. 

vacio  : :  Conj 
vacio  =  0 


■  (esVacio  c)  se  verifica  si  c  es  el  conjunto  vacio. 

esVacio  : :  Conj  ->  Bool 
esVacio  n  =  n==0 


■  (conjCompleto  n)  es  el  conjunto  de  los  numeros  desde  1  hasta  n. 

conj Completo  : :  Int  ->  Conj 
conjCompleto  n 

I  (n>=0)  &&  (n<=maxConj)  =  2~(n+l)-2 
I  otherwise  =  error  ("conjCompleto:"  ++  show  n) 


■  (inserta  x  c)  es  el  conjunto  obtenido  anadiendo  el  elemento  x  al  conjunto  c. 

inserta  : :  Int  ->  Conj  ->  Conj 
inserta  i  s 

I  i>=0  &&  i<=maxConj  =  d’*e+m 

I  otherwise  =  error  ("inserta:"  ++  show  i) 

where  (d,m)  =  divMod  s  e 

e  =  2~i 

d’  =  if  odd  d  then  d  else  d+1 


■  (elimina  x  c)  es  el  conjunto  obtenido  eliminando  el  elemento  x  del  conjunto  c. 

elimina  : :  Int  ->  Conj  ->  Conj 
elimina  i  s  =  d’*e+m 

where  (d,m)  =  divMod  s  e 
e  =  2~i 

d’  =  if  odd  d  then  d-1  else  d 
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■  Ejemplo  de  grafo  para  el  problema: 

4  5 

+ - 2 - + 

I  11  I 

I  1  I  8  I 

1 - 3 - 5 

I  \2  / 

16  2\  /5 

+ - 4  __e 


■  La  definition  del  grafo  anterior  es 


ejl 

:  :  Graf c 

i  Int 

;  Int 

ejl 

=  creaGrafo 

True  (1 

,6) 

[( 

i  »j» 

(vi!  ! 

( i  —  1 ) ) !  !  ( j -1) ) 

1 

i  < 

-  [1. 

•  6] ,  j  <-  [1 . . 6] ] 

vi:  : 

[[Int]] 

vi  = 

=  [[  o, 

4, 

1,  6,100,100], 

[  4, 

0, 

1,100, 

5,100]  , 

[  1, 

1, 

0,100, 

8, 

2], 

[  6,100,100,  0,100, 

2], 

[100, 

5, 

8,100, 

0, 

5], 

[100,100, 

2,  2, 

5, 

0]] 

■  Los  fndices  de  la  matriz  de  cålculo  son  de  la  forma  (i ,  S)  y  sus  valores  (v , xs)  don- 
de  xs  es  el  camino  minirno  desde  i  hasta  n  visitando  cada  vértice  de  S  exactamente 
una  vez  y  v  es  el  coste  de  xs. 

type  IndicePV  =  (Int,Conj) 
type  ValorPV  =  (Int, [Int]) 


■  (via jante  g)  es  el  par  (v,xs)  donde  xs  es  el  camino  de  menor  coste  que  pasa 
exactamente  una  vez  por  todos  los  nodos  del  grafo  g  empezando  en  su  ultimo 
nodo  y  v  es  su  coste.  Por  ejemplo, 

ghci>  viajante  ejl 
(20,  [6,4,1,3,2,5,61) 


viajante  ::  Graf o  Int  Int  ->  (Int,[Int]) 
viajante  g  =  valor  t  (n, conjCompleto  (n-1)) 


where  n  =  length  (nodos  g) 

t  =  dinamica  (calculaPV  g  n)  (cotasPV  n) 


(calculaPV  g  n  t  (i,k))  es  el  valor  del  camino  mmimo  en  el  grafo  g  desde  i 
hasta  n,  calculado  usando  la  tabla  t,  visitando  cada  nodo  del  conjunto  k  exacta- 
mente  una  vez. 

calculaPV  : :  Grafo  Int  Int  ->  Int  ->  Tabla  IndicePV  ValorPV 
->  IndicePV  ->  ValorPV 
calculaPV  g  n  t  (i,k) 

I  esVacio  k  =  (peso  i  n  g,[i,n]) 

I  otherwise  =  minimum  [sumaPrim  (valor  t  ( j ,  elimina  j  k)) 

(peso  i  j  g) 

I  j  <-  conj2Lista  k] 
where  sumaPrim  (v,xs)  v’  =  (v+v’,i:xs) 


(cotasPV  n)  son  las  cotas  de  la  matriz  de  cålculo  del  problema  del  viajante  en  un 
grafo  con  n  nodos. 

cotasPV  ::  Int  ->  ((Int ,Conj) , (Int ,Conj)) 
cotasPV  n  =  ( (1 , vacio) , (n, conjCompleto  n)) 
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1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 


x  +  y 


x  /  y 


x  /=  y 


es  la  suma  de  x  e  y. 
es  la  resta  de  x  e  y. 
es  el  cociente  de  x  entre  y. 
es  x  elevado  a  y. 
se  verifica  si  x  es  igual  a  y. 
se  verifica  si  x  es  distinto  de  y. 


x  <  y  se  verifica  si  x  es  menor  que  y. 

se  verifica  si  x  es  menor  o  igual  que  y. 


x  <= 


x  >= 


x  >  y  se  verifica  si  x  es  mayor  que  y. 

se  verifica  si  x  es  mayor  o  igual  que  y. 
es  la  conjuncion  de  x  e  y. 
es  la  disyuncion  de  x  e  y. 


x  II  y 


x:ys 


es  la  lista  obtenida  anadiendo  x  al  principio  de  ys. 


xs  ++  ys  es  la  concatenacion  de  xs  e  ys. 


xs 


i  i 


n 


es  el  elemento  n-ésimo  de  xs. 


abs  x 


and  xs 


es  la  composicion  de  f  y  g. 

es  el  valor  absoluto  de  x. 
es  la  conjuncion  de  la  lista  de  booleanos  xs. 


ceiling  x  es  el  menor  entero  no  menor  que  x. 


chr  n 


concat  xss 


es  el  caråcter  cuyo  codigo  ASCII  es  n. 

es  la  concatenacion  de  la  lista  de  listas  xss. 


const  x  y 


es  x. 
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23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 


curry  f 


div  x  y 


es  la  version  curryficada  de  la  funcion  f . 
es  la  division  entera  de  x  entre  y. 


drop  n  xs  borra  los  n  primeros  elementos  de  xs. 


dropWhile  p  xs  borra  el  mayor  prefijo  de  xs  cuyos  elementos  satisfacen  el  pre- 


dicado  p. 


elem  x  ys  se  verifica  si  x  pertenece  a  ys. 


even  x 


se  verifica  si  x  es  par. 


filter  p  xs  es  la  lista  de  elementos  de  la  lista  xs  que  verifican  el  predicado  p. 


flip  f  x  y  es  f  y  x. 


floor  x 


foldl  f  e  xs 


es  el  mayor  entero  no  mayor  que  x. 

pliega  xs  de  izquierda  a  derecha  usando  el  operador  f  y  el  valor 


inicial  e. 

foldr  f  e  xs  pliega  xs  de  derecha  a  izquierda  usando  el  operador  f  y  el  valor 


inicial  e. 


fromintegral  x  transforma  el  numero  entero  x  al  tipo  numérico  correspon- 


diente. 


ged  x  y 


head  xs 


init  xs 


isSpace  x 


fst  p  es  el  primer  elemento  del  par  p. 

es  el  måximo  comun  divisor  de  de  x  e  y. 

es  el  primer  elemento  de  la  lista  xs. 
es  la  lista  obtenida  eliminando  el  ultimo  elemento  de  xs. 
se  verifica  si  x  es  un  espacio. 

se  verifica  si  x  estå  en  mayuscula. 

se  verifica  si  x  estå  en  minuscula. 
se  verifica  si  x  es  un  caråcter  alfabético. 

se  verifica  si  x  es  un  digito. 
isAlphaNum  x  se  verifica  si  x  es  un  caråcter  alfanumérico. 


i sUpper  x 


isLower  x 


i s Alpha  x 


isDigit  x 


last  xs 


iterate  f  x  es  la  lista  [x,  f(x),  f(f(x)),  ...]. 


length  xs 


es  el  ultimo  elemento  de  la  lista  xs. 

es  el  numero  de  elementos  de  la  lista  xs. 


map  f  xs  es  la  lista  obtenida  aplicado  f  a  cada  elemento  de  xs. 


max  x  y 


maximum  xs 


mm  x  y 


minimum  xs 


es  el  måximo  de  x  e  y. 

_ es  el  måximo  elemento  de  la  lista  xs. 

es  el  minimo  de  x  e  y. 

es  el  mfnimo  elemento  de  la  lista  xs. 


mod  x  y  es  el  resto  de  x  entre  y. 


not  x 


es  la  negacion  logica  del  booleano  x. 
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55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 


noElem  x  ys  se  verifica  si  x  no  pertenece  a  ys. 


nuil  xs 


odd  x 


or  xs 


ord  c 


se  verifica  si  xs  es  la  lista  vacia. 


se  verifica  si  x  es  impar. 

es  la  disyuncion  de  la  lista  de  booleanos  xs. 

es  el  codigo  ASCII  del  caråcter  c. 


product  xs  es  el  producto  de  la  lista  de  numeros  xs. 

rem  x  y  es  el  resto  de  x  entre  y. 

repeat  x  es  la  lista  infinita  [x ,  x,  x,  ...]. 


replicate  n  x  es  la  lista  formada  por  n  veces  el  elemento  x. 
reverse  xs  es  la  inversa  de  la  lista  xs. 


round  x 


es  el  redondeo  de  x  al  entero  mås  cercano. 


scanr  f  e  xs  es  la  lista  de  los  resultados  de  plegar  xs  por  la  derecha  con  f  y  e. 


show  x 


es  la  represantacion  de  x  como  cadena. 
signum  x  es  1  si  x  es  positivo,  0  si  x  es  cero  y  -1  si  x  es  negativo. 


snd  p  es  el  segundo  elemento  del  par  p. 


split At  n  xs  es  (take  n  xs,  drop  n  xs). 


sqrt  x 


sum  xs 


tail  xs 


es  la  raiz  cuadrada  de  x. 

es  la  suma  de  la  lista  numérica  xs. 
es  la  lista  obtenida  eliminando  el  primer  elemento  de  xs. 
es  la  lista  de  los  n  primeros  elementos  de  xs. 


take  n  xs 

takeWhile  p  xs  es  el  mayor  prefijo  de  xs  cuyos  elementos  satisfacen  el  predi- 
cado  p. 


76. 

uncurry  f 

es 

77. 

until  p  f 

X 

78. 

zip  xs  ys 

es 

xs  e  ys. 

es  la  version  cartesiana  de  la  funcion  f . 


es  la  lista  de  pares  formado  por  los  correspondientes  elementos  de 


79. 


zipWith  f  xs  ys  se  obtiene  aplicando  f  a  los  correspondientes  elementos  de 


xs  e  ys. 
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Apéndice  B 

Método  de  Polya  para  la  resolucion  de 
problemas 

B.l.  Método  de  Polya  para  la  resolucion  de  problemas  ma- 
temåticos 

Para  resolver  un  problema  se  necesita: 

Paso  1:  Entender  el  problema 

■  <;Cuål  es  la  incognita?,  ^Cuåles  son  los  datos? 

■  ,;Cuål  es  la  condicion?  ,;Es  la  condicion  suficiente  para  determinar  la  incognita? 
^Es  insuficiente?  ^Redundante?  ^Contradictoria? 

Paso  2:  Configurar  un  plan 

■  ,;Te  has  encontrado  con  un  problema  semejante?  iO  has  visto  el  mismo  problema 
planteado  en  forma  ligeramente  diferente? 

■  <;Conoces  aigun  problema  relacionado  con  éste?  <;Conoces  aigun  teorema  que  te 
pueda  ser  util?  Mira  atentamente  la  incognita  y  trata  de  recordar  un  problema  que 
sea  familiar  y  que  tenga  la  misma  incognita  o  una  incognita  similar. 

■  He  aqui  un  problema  relacionado  al  tuyo  y  que  ya  has  resuelto  ya.  ,;Puedes  utili- 
zarlo?  ^Puedes  utilizar  su  resultado?  ,;Puedes  emplear  su  método?  <[Te  hace  falta 
introducir  aigun  elemento  auxiliar  a  fin  de  poder  utilizarlo? 

■  ^Puedes  enunciar  al  problema  de  otra  forma?  ^Puedes  plantearlo  en  forma  dife¬ 
rente  nuevamente?  Recurre  a  las  definiciones. 
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■  Si  no  puedes  resolver  el  problema  propuesto,  trata  de  resolver  primero  aigun  pro¬ 
blema  similar.  ,;Puedes  imaginarte  un  problema  anålogo  un  tanto  mås  accesible? 
^Un  problema  mås  general?  ^Un  problema  mås  particular?  <dJn  problema  anålo¬ 
go?  ,;Puede  resolver  una  parte  del  problema?  Considera  solo  una  parte  de  la  con- 
dicion;  descarta  la  otra  parte;  ^en  qué  medida  la  incognita  queda  ahora  determi- 
nada?  ^En  qué  forma  puede  variar?  ^Puedes  deducir  aigun  elemento  util  de  los 
datos?  ,;Puedes  pensar  en  algunos  otros  datos  apropiados  para  determinar  la  in¬ 
cognita?  ,;Puedes  cambiar  la  incognita?  ^Puedes  cambiar  la  incognita  o  los  datos, 
o  ambos  si  es  necesario,  de  tal  forma  que  estén  mås  cercanos  entre  si? 

■  ^Has  empleado  todos  los  datos?  ^Has  empleado  toda  la  condicion?  ^Has  conside- 
rado  todas  las  nociones  esenciales  concernientes  al  problema? 

Paso  3:  Ejecutar  el  plan 

■  Al  ejercutar  tu  plan  de  la  solucion,  comprueba  cada  uno  de  los  pasos 

■  i  Puedes  ver  claramente  que  el  paso  es  correcto?  ^Puedes  demostrarlo? 

Paso  4:  Examinar  la  solucion  obtenida 

■  i  Puedes  verificar  el  resultado?  ,;Puedes  el  razonamiento? 

■  i  Puedes  obtener  el  resultado  en  forma  diferente?  ^Puedes  verlo  de  golpe?  ^Puedes 
emplear  el  resultado  o  el  método  en  aigun  otro  problema? 

G.  Polya  "Como  plantear  y  resolver  problemas"  (Ed.  Trillas,  1978)  p.  19 

B.2.  Método  de  Polya  para  resolver  problemas  de  progra- 
macion 

Para  resolver  un  problema  se  necesita: 

Paso  1:  Entender  el  problema 

■  <;Cuåles  son  las  argnmentos ?  ^Cuål  es  el  resultado ?  ^Cuål  es  nombre  de  la  funcion? 
<;Cuål  es  su  tipo ? 

■  <;Cuål  es  la  especificacion  del  problema?  ^Puede  satisfacerse  la  especificacion?  ^Es 
insuficiente?  ^Redundante?  ^Contradictoria?  ^Qué  restricciones  se  suponen  sobre 
los  argumentos  y  el  resultado? 
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■  Puedes  descomponer  el  problema  en  partes?  Puede  ser  u til  dibujar  diagramas 
con  ejemplos  de  argumentos  y  resultados. 

Paso  2:  Disenar  el  programa 

■  ,;Te  has  encontrado  con  un  problema  semejante?  iO  has  visto  el  mismo  problema 
planteado  en  forma  ligeramente  diferente? 

■  ^Conoces  aigun  problema  relacionado  con  éste?  ^Conoces  alguna  funcion  que  te 
pueda  ser  util?  Mira  atentamente  el  tipo  y  trata  de  recordar  un  problema  que  sea 
familiar  y  que  tenga  el  mismo  tip  o  o  un  tip  o  similar. 

■  ^Conoces  aigun  problema  familiar  con  una  especificacion  similar? 

■  He  aquf  un  problema  relacionado  al  tuyo  y  que  ya  has  resuelto.  ,;Puedes  utilizarlo? 
^Puedes  utilizar  su  resultado?  ^Puedes  emplear  su  método?  hace  falta  intro- 
ducir  alguna  funcion  auxiliar  a  fin  de  poder  utilizarlo? 

■  Si  no  puedes  resolver  el  problema  propuesto,  trata  de  resolver  primero  aigun  pro¬ 
blema  similar.  ,;Puedes  imaginarte  un  problema  anålogo  un  tanto  mås  accesible ? 
^Un  problema  mås  general ?  ^Un  problema  mås  particidar ?  ^Un  problema  andlogo ? 

■  i  Puede  resolver  una  parte  del  problema?  ^Puedes  deducir  aigun  elemento  util  de 
los  datos?  <;Puedes  pensar  en  algunos  otros  datos  apropiados  para  determinar  la 
incognita?  ^Puedes  cambiar  la  incognita?  Puedes  cambiar  la  incognita  o  los  datos, 
o  ambos  si  es  necesario,  de  tal  forma  que  estén  mås  cercanos  entre  si? 

■  <[Has  empleado  todos  los  datos?  ^Has  empleado  todas  las  restricciones  sobre  los 
datos?  <[Has  considerado  todas  los  requisitos  de  la  especificacion? 

Paso  3:  Escribir  el  programa 

■  Al  escribir  el  programa,  comprueba  cada  uno  de  los  pasos  y  funciones  auxiliares. 

■  Puedes  ver  claramente  que  cada  paso  o  funcion  auxiliar  es  correcta? 

■  Puedes  escribir  el  programa  en  etapas.  Piensas  en  los  diferentes  casos  en  los  que 
se  divide  el  problema;  en  particular,  piensas  en  los  diferentes  casos  para  los  da¬ 
tos.  Puedes  pensar  en  el  cålculo  de  los  casos  independientemente  y  nnirlos  para 
obtener  el  resultado  final 

■  Puedes  pensar  en  la  solucion  del  problema  descomponiéndolo  en  problemas  con 
datos  mås  simples  y  uniendo  las  soluciones  parciales  para  obtener  la  solucion  del 
problema;  esto  es,  por  recursion. 
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■  En  su  diseno  se  puede  usar  problemas  mås  generales  o  mås  particulares.  Escribe 
las  soluciones  de  estos  problemas;  ellas  puede  servir  como  guia  para  la  solucion 
del  problema  original,  o  se  pueden  usar  en  su  solucion. 

■  ^Puedes  apoyarte  en  otros  problemas  que  has  resuelto?  ^Pueden  usarse?  ^Pueden 
modificarse?  ^Pueden  guiar  la  solucion  del  problema  original? 

Paso  4:  Examinar  la  solucion  obtenida 

■  (d’uedes  comprobar  el  funcionamiento  del  programa  sobre  una  coleccion  de  argu¬ 
mentos? 

■  ^Puedes  comprobar  propiedades  del  programa? 

■  (d’uedes  escribir  el  programa  en  una  forma  diferente? 

■  ^Puedes  emplear  el  programa  o  el  método  en  aigun  otro  programa? 

Simon  Thompson  Hoiu  to  program  it,  basado  en  G.  Polya  Como  plantear  y  resolver  proble¬ 
mas. 
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